mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 08:27:03 +03:00
25 lines
606 B
Haskell
25 lines
606 B
Haskell
module Commands.Dev.Runtime.Options where
|
|
|
|
import Commands.Dev.Runtime.Compile.Options
|
|
import CommonOptions
|
|
|
|
newtype RuntimeCommand
|
|
= Compile CompileOptions
|
|
deriving stock (Data)
|
|
|
|
parseRuntimeCommand :: Parser RuntimeCommand
|
|
parseRuntimeCommand =
|
|
hsubparser $
|
|
mconcat
|
|
[ commandCompile
|
|
]
|
|
where
|
|
commandCompile :: Mod CommandFields RuntimeCommand
|
|
commandCompile = command "compile" compileInfo
|
|
|
|
compileInfo :: ParserInfo RuntimeCommand
|
|
compileInfo =
|
|
info
|
|
(Compile <$> parseCompileOptions)
|
|
(progDesc "Compile a C file with Juvix runtime included")
|