From ddcc375bfab94901dcae3d5db0c876c1f5f95cea Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 25 Nov 2014 10:20:21 +0200 Subject: [PATCH] Better Hackage distro upload (maybe?) --- stackage-upload.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/stackage-upload.hs b/stackage-upload.hs index b2e8b07b..0b76697a 100644 --- a/stackage-upload.hs +++ b/stackage-upload.hs @@ -2,6 +2,7 @@ import Control.Monad (filterM, when) import qualified Data.ByteString.Char8 as S8 import qualified Data.ByteString.Lazy as L +import qualified Data.ByteString.Lazy.Char8 as L8 import Data.List (isInfixOf, isPrefixOf, sort) import Network.HTTP.Client @@ -109,9 +110,9 @@ main = withManager defaultManagerSettings $ \m -> do lbs <- L.readFile $ takeDirectory filepath "build-plan.csv" let req = "http://hackage.haskell.org/distro/Stackage/packages.csv" { requestHeaders = [("Content-Type", "text/csv")] - , requestBody = RequestBodyLBS lbs + , requestBody = RequestBodyLBS $ L.intercalate "\n" $ L8.lines lbs , checkStatus = \_ _ _ -> Nothing - , method = "POST" + , method = "PUT" } httpLbs req m >>= print