This commit is contained in:
Michael Snoyman 2015-03-30 12:23:12 +03:00
parent d6ccfc04b9
commit 027b562aa3

View File

@ -73,7 +73,7 @@ download ltsVer dest = do
-} -}
[ "https://cdn.rawgit.com/fpco/lts-haskell/master/lts-" [ "https://cdn.rawgit.com/fpco/lts-haskell/master/lts-"
, ltsVer , ltsVer
, "1.14.yaml" , ".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