1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-22 06:11:36 +03:00
juvix/app/Commands/Dev/Internal.hs

14 lines
516 B
Haskell
Raw Normal View History

module Commands.Dev.Internal where
2022-09-14 17:16:15 +03:00
import Commands.Base
import Commands.Dev.Internal.Arity qualified as Arity
import Commands.Dev.Internal.Options
import Commands.Dev.Internal.Pretty qualified as InternalPretty
import Commands.Dev.Internal.Typecheck qualified as InternalTypecheck
runCommand :: (Members '[Embed IO, App] r) => InternalCommand -> Sem r ()
2022-09-14 17:16:15 +03:00
runCommand = \case
Pretty opts -> InternalPretty.runCommand opts
Arity opts -> Arity.runCommand opts
TypeCheck opts -> InternalTypecheck.runCommand opts