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