mirror of
https://github.com/anoma/juvix.git
synced 2025-01-08 08:39:26 +03:00
11 lines
352 B
Haskell
11 lines
352 B
Haskell
module Commands.Dev.MiniC where
|
|
|
|
import Commands.Base
|
|
import Commands.Dev.MiniC.Options
|
|
import Juvix.Compiler.Backend.C.Translation.FromInternal qualified as MiniC
|
|
|
|
runCommand :: Members '[Embed IO, App] r => MiniCOptions -> Sem r ()
|
|
runCommand opts = do
|
|
miniC <- (^. MiniC.resultCCode) <$> runPipeline (opts ^. miniCInputFile) upToMiniC
|
|
say miniC
|