git.iko.soy/stackage
on 76e893b help sign in
stackage/app/stackage.hs
15 lines 387 B history raw
1import Stackage.CompleteBuild
2import System.Environment (getArgs)
4main :: IO ()
5main = do
6 args <- getArgs
7 case args of
8 [x] | Just y <- lookup x m -> completeBuild y
9 _ -> error $ "Expected one argument, one of: " ++ unwords (map fst m)
10 where
11 m =
12 [ ("nightly", Nightly)
13 , ("lts-major", LTS Major)
14 , ("lts-minor", LTS Minor)
15 ]