asif-3.0.0: app/App/Commands.hs

module App.Commands
  ( globalOptions
  ) where

import App.Commands.Dump
import App.Commands.EncodeFiles
import App.Commands.ExtractFiles
import App.Commands.ExtractSegments
import Data.Monoid                  ((<>))
import Options.Applicative

globalOptions :: Parser (IO ())
globalOptions = subparser
  (   command "dump"                (info commandDump               idm)
  <>  command "encode-files"        (info commandEncodeFiles        idm)
  <>  command "extract-files"       (info commandExtractFiles       idm)
  <>  command "extract-segments"    (info commandExtractSegments    idm)
  )