diff --git a/Handler/BuildPlan.hs b/Handler/BuildPlan.hs index 963a182..9f70521 100644 --- a/Handler/BuildPlan.hs +++ b/Handler/BuildPlan.hs @@ -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