juvix/app/Commands/Dev/Parse/Options.hs

module Commands.Dev.Parse.Options where

import CommonOptions

data ParseOptions = ParseOptions
  { _parseNoPrettyShow :: Bool,
    _parseInputFile :: Path
  }
  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 {..}