1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-14 08:27:03 +03:00
juvix/app/Commands/Dev/Parse/Options.hs
2022-12-20 13:05:40 +01:00

22 lines
467 B
Haskell

module Commands.Dev.Parse.Options where
import CommonOptions
data ParseOptions = ParseOptions
{ _parseNoPrettyShow :: Bool,
_parseInputFile :: AppPath File
}
deriving stock (Data)
makeLenses ''ParseOptions
parseParse :: Parser ParseOptions
parseParse = do
_parseNoPrettyShow <-
switch
( long "no-pretty-show"
<> help "Disable formatting of the Haskell AST"
)
_parseInputFile <- parseInputJuvixFile
pure ParseOptions {..}