run :: Args -> IO ()
run (Args cOpts cmd) = case cmd of
  Install insOpts -> runInstall cOpts insOpts
  Validate -> runValidate
  Logs logOpts -> runLog logOpts
run :: Args -> IO ()
run (Args cOpts cmd) = case cmd of
  Install insOpts -> runInstall cOpts insOpts
  Validate -> runValidate
  Logs logOpts -> runLog logOpts
run (Args cOpts cmd) = case cmd of
  Install insOpts -> runInstall cOpts insOpts
  Validate -> runValidate
  Logs logOpts -> runLog logOpts