Add a argument parser and some haddocks

I am not sure if I have set the ParserInfo up correctly, I have never
used it before.
This commit is contained in:
Alan Zimmerman 2016-02-15 22:04:47 +02:00
parent c9e5a20a3e
commit 85df08a913

View File

@ -18,9 +18,11 @@
module Language.Haskell.GhcMod.Options.Options (
globalArgSpec
, parseCmdLineOptions
) where
import Options.Applicative
import Options.Applicative.Help.Chunk
import Options.Applicative.Types
import Language.Haskell.GhcMod.Types
import Control.Arrow
@ -30,6 +32,22 @@ import Language.Haskell.GhcMod.Read
import Language.Haskell.GhcMod.Options.DocUtils
import Language.Haskell.GhcMod.Options.Help
-- | Parse a set of arguments according to the ghc-mod CLI flag spec, producing
-- @Options@ set accordingly.
parseCmdLineOptions :: [String] -> Maybe Options
parseCmdLineOptions args = execParserMaybe parserInfo args
where
parserInfo
= ParserInfo
{ infoParser = globalArgSpec
, infoFullDesc = True
, infoProgDesc = Chunk Nothing
, infoHeader = Chunk Nothing
, infoFooter = Chunk Nothing
, infoFailureCode = -1
, infoIntersperse = True
}
splitOn :: Eq a => a -> [a] -> ([a], [a])
splitOn c = second (drop 1) . break (==c)
@ -119,6 +137,9 @@ programsArgSpec = Programs
<=> showDefault
<=> help "stack executable to use"
-- | An optparse-applicative @Parser@ sepcification for @Options@ so that
-- applications making use of the ghc-mod API can have a consistent way of
-- parsing global options.
globalArgSpec :: Parser Options
globalArgSpec = Options
<$> outputOptsSpec