2022-09-29 18:44:55 +03:00
|
|
|
module Commands.Dev.Asm where
|
|
|
|
|
|
|
|
import Commands.Base
|
2022-12-06 13:33:20 +03:00
|
|
|
import Commands.Dev.Asm.Compile as Compile
|
2022-09-29 18:44:55 +03:00
|
|
|
import Commands.Dev.Asm.Options
|
|
|
|
import Commands.Dev.Asm.Run as Run
|
|
|
|
import Commands.Dev.Asm.Validate as Validate
|
|
|
|
|
2023-12-06 20:24:59 +03:00
|
|
|
runCommand :: forall r. (Members '[Embed IO, App, TaggedLock] r) => AsmCommand -> Sem r ()
|
2022-09-29 18:44:55 +03:00
|
|
|
runCommand = \case
|
|
|
|
Run opts -> Run.runCommand opts
|
|
|
|
Validate opts -> Validate.runCommand opts
|
2022-12-06 13:33:20 +03:00
|
|
|
Compile opts -> Compile.runCommand opts
|