haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-09 21:07:29 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Better Hackage distro upload (maybe?)

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-25 10:20:21 +02:00
parent cf1a24a6e6
commit ddcc375bfa
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
stackage-upload.hs
View File

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