module Commands.Dev.Asm where

import Commands.Base
import Commands.Dev.Asm.Compile as Compile
import Commands.Dev.Asm.Options
import Commands.Dev.Asm.Run as Run
import Commands.Dev.Asm.Validate as Validate

runCommand :: forall r. (Members '[Embed IO, App, TaggedLock] r) => AsmCommand -> Sem r ()
runCommand = \case
  Run opts -> Run.runCommand opts
  Validate opts -> Validate.runCommand opts
  Compile opts -> Compile.runCommand opts