mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-11 23:08:30 +01:00
16 lines
387 B
Haskell
16 lines
387 B
Haskell
import Stackage.CompleteBuild
|
|
import System.Environment (getArgs)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
case args of
|
|
[x] | Just y <- lookup x m -> completeBuild y
|
|
_ -> error $ "Expected one argument, one of: " ++ unwords (map fst m)
|
|
where
|
|
m =
|
|
[ ("nightly", Nightly)
|
|
, ("lts-major", LTS Major)
|
|
, ("lts-minor", LTS Minor)
|
|
]
|