mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 08:27:03 +03:00
22 lines
467 B
Haskell
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 {..}
|