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

Updated raw bundle URL

Browse Source
This commit is contained in:
Michael Snoyman 2015-03-30 12:15:30 +03:00
parent 4ec9caab59
commit d6ccfc04b9
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Handler/BuildPlan.hs
View File

@ -65,10 +65,16 @@ download :: HttpM env m
-> m () -> m ()
download ltsVer dest = do download ltsVer dest = do
req <- parseUrl $ unpack $ concat req <- parseUrl $ unpack $ concat
{-
[ "https://raw.githubusercontent.com/fpco/lts-haskell/master/lts-" [ "https://raw.githubusercontent.com/fpco/lts-haskell/master/lts-"
, ltsVer , ltsVer
, ".yaml" , ".yaml"
] ]
-}
[ "https://cdn.rawgit.com/fpco/lts-haskell/master/lts-"
, ltsVer
, "1.14.yaml"
]
withResponse req $ \res -> liftIO $ F.withFile dest F.WriteMode $ \h -> withResponse req $ \res -> liftIO $ F.withFile dest F.WriteMode $ \h ->
responseBody res $$ sinkHandle h responseBody res $$ sinkHandle h