mirror of
https://github.com/anoma/juvix.git
synced 2024-12-15 10:03:22 +03:00
eb6819f0c7
* Closes #269 * Add internal command * w.i.p * Fix shell tests. * Rename check command and add shell-tests
20 lines
405 B
Haskell
20 lines
405 B
Haskell
module Commands.Internal.Parse where
|
|
|
|
import Juvix.Prelude hiding (Doc)
|
|
import Options.Applicative
|
|
|
|
newtype ParseOptions = ParseOptions
|
|
{ _parseNoPrettyShow :: Bool
|
|
}
|
|
|
|
makeLenses ''ParseOptions
|
|
|
|
parseParse :: Parser ParseOptions
|
|
parseParse = do
|
|
_parseNoPrettyShow <-
|
|
switch
|
|
( long "no-pretty-show"
|
|
<> help "Disable formatting of the Haskell AST"
|
|
)
|
|
pure ParseOptions {..}
|