1
1
mirror of https://github.com/anoma/juvix.git synced 2024-12-25 00:21:41 +03:00
juvix/app/Commands/Dev/Termination.hs

12 lines
415 B
Haskell
Raw Normal View History

module Commands.Dev.Termination where
2022-09-14 17:16:15 +03:00
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, TaggedLock, App] r) => TerminationCommand -> Sem r ()
2022-09-14 17:16:15 +03:00
runCommand = \case
Calls opts -> Calls.runCommand opts
CallGraph opts -> CallGraph.runCommand opts