2022-08-03 14:20:40 +03:00
|
|
|
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
|
2023-06-30 16:01:46 +03:00
|
|
|
import Commands.Dev.Internal.Pretty qualified as Pretty
|
|
|
|
|
import Commands.Dev.Internal.Reachability qualified as Reachability
|
|
|
|
|
import Commands.Dev.Internal.Typecheck qualified as Typecheck
|
2022-09-14 17:16:15 +03:00
|
|
|
|
2023-08-25 19:37:23 +03:00
|
|
|
runCommand :: (Members '[Embed IO, App] r) => InternalCommand -> Sem r ()
|
2022-09-14 17:16:15 +03:00
|
|
|
runCommand = \case
|
2023-06-30 16:01:46 +03:00
|
|
|
Pretty opts -> Pretty.runCommand opts
|
2022-09-14 17:16:15 +03:00
|
|
|
Arity opts -> Arity.runCommand opts
|
2023-06-30 16:01:46 +03:00
|
|
|
TypeCheck opts -> Typecheck.runCommand opts
|
|
|
|
|
Reachability opts -> Reachability.runCommand opts
|
