1
1
mirror of https://github.com/anoma/juvix.git synced 2025-01-07 08:08:44 +03:00
juvix/app/Commands/Dev/MiniC.hs

11 lines
354 B
Haskell
Raw Normal View History

2022-09-14 17:16:15 +03:00
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 ()
2022-09-14 17:16:15 +03:00
runCommand opts = do
miniC <- (^. MiniC.resultCCode) <$> runPipeline (opts ^. miniCInputFile) upToMiniC
say miniC