module Zifter.OptParse.Types where
import GHC.Generics
type Arguments = (Command, Flags)
type Instructions = (Dispatch, Settings)
data Command
= CommandRun
| CommandInstall Bool
| CommandPreProcess
| CommandPreCheck
| CommandCheck
deriving (Show, Eq)
newtype Flags = Flags
{ flagsOutputColor :: Bool
} deriving (Show, Eq)
data Configuration =
Configuration
deriving (Show, Eq)
data Dispatch
= DispatchRun
| DispatchInstall Bool
| DispatchPreProcess
| DispatchPreCheck
| DispatchCheck
deriving (Show, Eq, Generic)
newtype Settings = Settings
{ setsOutputColor :: Bool
} deriving (Show, Eq, Generic)