haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-18 15:11:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Revert "Updated raw bundle URL"

Browse Source 
This reverts commit d6ccfc04b9.
This commit is contained in:
Michael Snoyman 2015-03-30 13:21:13 +03:00
parent 5d5b9448ec
commit dd375bbbc1
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Handler/BuildPlan.hs
View File

@ -65,16 +65,10 @@ 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