mirror of
https://github.com/commercialhaskell/stackage-server.git
synced 2026-01-12 04:08:29 +01:00
parent
5d5b9448ec
commit
dd375bbbc1
@ -65,16 +65,10 @@ download :: HttpM env m
|
||||
-> m ()
|
||||
download ltsVer dest = do
|
||||
req <- parseUrl $ unpack $ concat
|
||||
{-
|
||||
[ "https://raw.githubusercontent.com/fpco/lts-haskell/master/lts-"
|
||||
, ltsVer
|
||||
, ".yaml"
|
||||
]
|
||||
-}
|
||||
[ "https://cdn.rawgit.com/fpco/lts-haskell/master/lts-"
|
||||
, ltsVer
|
||||
, "1.14.yaml"
|
||||
]
|
||||
withResponse req $ \res -> liftIO $ F.withFile dest F.WriteMode $ \h ->
|
||||
responseBody res $$ sinkHandle h
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user