mirror of
https://github.com/anoma/juvix.git
synced 2024-12-15 10:03:22 +03:00
12 lines
401 B
Haskell
12 lines
401 B
Haskell
module Commands.Dev.Termination where
|
|
|
|
import Commands.Base
|
|
import Commands.Dev.Termination.CallGraph qualified as CallGraph
|
|
import Commands.Dev.Termination.Calls qualified as Calls
|
|
import Commands.Dev.Termination.Options
|
|
|
|
runCommand :: Members '[Embed IO, App] r => TerminationCommand -> Sem r ()
|
|
runCommand = \case
|
|
Calls opts -> Calls.runCommand opts
|
|
CallGraph opts -> CallGraph.runCommand opts
|