Updated raw bundle URL

This commit is contained in:
Michael Snoyman 2015-03-30 12:15:30 +03:00
parent 4ec9caab59
commit d6ccfc04b9

View File

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