@@ -2,6 +2,7 @@
22import Control.Monad (filterM, when)
33import qualified Data.ByteString.Char8 as S8
44import qualified Data.ByteString.Lazy as L
5+import qualified Data.ByteString.Lazy.Char8 as L8
56import Data.List (isInfixOf, isPrefixOf,
67 sort)
78import Network.HTTP.Client
@@ -109,9 +110,9 @@ main = withManager defaultManagerSettings $ \m -> do
109110 lbs <- L.readFile $ takeDirectory filepath </> "build-plan.csv"
110111 let req = "http://hackage.haskell.org/distro/Stackage/packages.csv"
111112 { requestHeaders = [("Content-Type", "text/csv")]
112− , requestBody = RequestBodyLBS lbs
113+ , requestBody = RequestBodyLBS $ L.intercalate "\n" $ L8.lines lbs
113114 , checkStatus = \_ _ _ -> Nothing
114− , method = "POST"
115+ , method = "PUT"
115116 }
116117 httpLbs req m >>= print
117118