git.iko.soy/stackage
on 982ac15 help sign in
stackage/app/stackage.hs
16 lines 450 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 -> y
9 _ -> error $ "Expected one argument, one of: " ++ unwords (map fst m)
10 where
11 m =
12 [ ("nightly", completeBuild Nightly)
13 , ("lts-major", completeBuild $ LTS Major)
14 , ("lts-minor", completeBuild $ LTS Minor)
15 , ("check", justCheck)
16 ]