mirror of
https://github.com/anoma/juvix.git
synced 2024-12-15 01:52:11 +03:00
14 lines
465 B
Haskell
14 lines
465 B
Haskell
module Commands.Dev.Parse where
|
|
|
|
import Commands.Base
|
|
import Commands.Dev.Parse.Options
|
|
import Juvix.Compiler.Concrete.Translation.FromSource qualified as Parser
|
|
import Text.Show.Pretty (ppShow)
|
|
|
|
runCommand :: Members '[Embed IO, App] r => ParseOptions -> Sem r ()
|
|
runCommand opts = do
|
|
m <-
|
|
head . (^. Parser.resultModules)
|
|
<$> runPipeline (opts ^. parseInputFile) upToParsing
|
|
if opts ^. parseNoPrettyShow then say (show m) else say (pack (ppShow m))
|