mirror of
https://github.com/anoma/juvix.git
synced 2024-12-14 17:32:00 +03:00
13 lines
539 B
Haskell
13 lines
539 B
Haskell
module Commands.Dev.Internal.Pretty where
|
|
|
|
import Commands.Base
|
|
import Commands.Dev.Internal.Pretty.Options
|
|
import Juvix.Compiler.Internal.Pretty qualified as Internal
|
|
import Juvix.Compiler.Internal.Translation.FromAbstract qualified as Internal
|
|
|
|
runCommand :: Members '[Embed IO, App] r => InternalPrettyOptions -> Sem r ()
|
|
runCommand opts = do
|
|
globalOpts <- askGlobalOptions
|
|
intern <- head . (^. Internal.resultModules) <$> runPipeline (opts ^. internalPrettyInputFile) upToInternal
|
|
renderStdOut (Internal.ppOut globalOpts intern)
|