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

module Commands.Dev.MiniC.Options where

import CommonOptions

newtype MiniCOptions = MiniCOptions
  { _miniCInputFile :: AppPath File
  }
  deriving stock (Data)

makeLenses ''MiniCOptions

parseMiniC :: Parser MiniCOptions
parseMiniC = do
  _miniCInputFile <- parseInputJuvixFile
  pure MiniCOptions {..}