{-# LANGUAGE NoImplicitPrelude #-}
module Stack.Options.GhcBuildParser where
import Options.Applicative
import Options.Applicative.Types
import Stack.Options.Utils
import Stack.Prelude
import Stack.Types.CompilerBuild
ghcBuildParser :: Bool -> Parser CompilerBuild
ghcBuildParser hide =
option
readGHCBuild
(long "ghc-build" <> metavar "BUILD" <>
completeWith ["standard", "gmp4", "nopie", "tinfo6", "tinfo6-nopie", "ncurses6", "integersimple"] <>
help
"Specialized GHC build, e.g. 'gmp4' or 'standard' (usually auto-detected)" <>
hideMods hide
)
where
readGHCBuild = do
s <- readerAsk
case parseCompilerBuild s of
Left e -> readerError (show e)
Right v -> return v