ddcc375 · stackage · git.iko.soy

git.iko.soy/stackage

on master help sign in

Better Hackage distro upload (maybe?)

ddcc375Michael Snoyman12 years ago

stackage-upload.hs+3−2

@@ -2,6 +2,7 @@

2import Control.Monad (filterM, when)

3import qualified Data.ByteString.Char8 as S8

4import qualified Data.ByteString.Lazy as L

5+import qualified Data.ByteString.Lazy.Char8 as L8

5import Data.List (isInfixOf, isPrefixOf,

6import Data.List (isInfixOf, isPrefixOf,

6 sort)

7 sort)

7import Network.HTTP.Client

8import Network.HTTP.Client

@@ -109,9 +110,9 @@ main = withManager defaultManagerSettings $ \m -> do

109 lbs <- L.readFile $ takeDirectory filepath </> "build-plan.csv"

110 lbs <- L.readFile $ takeDirectory filepath </> "build-plan.csv"

110 let req = "http://hackage.haskell.org/distro/Stackage/packages.csv"

111 let req = "http://hackage.haskell.org/distro/Stackage/packages.csv"

111 { requestHeaders = [("Content-Type", "text/csv")]

112 { requestHeaders = [("Content-Type", "text/csv")]

112− , requestBody = RequestBodyLBS lbs

113+ , requestBody = RequestBodyLBS $ L.intercalate "\n" $ L8.lines lbs

113 , checkStatus = \_ _ _ -> Nothing

114 , checkStatus = \_ _ _ -> Nothing

114− , method = "POST"

115+ , method = "PUT"

115 }

116 }

116 httpLbs req m >>= print

117 httpLbs req m >>= print

117

118