module Rattletrap.Console.Flag where

data Flag
  = Compact
  | Fast
  | Help
  | Input FilePath
  | Mode String
  | Output FilePath
  | Schema
  | SkipCrc
  | Version
  deriving (Flag -> Flag -> Bool
(Flag -> Flag -> Bool) -> (Flag -> Flag -> Bool) -> Eq Flag
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Flag -> Flag -> Bool
== :: Flag -> Flag -> Bool
$c/= :: Flag -> Flag -> Bool
/= :: Flag -> Flag -> Bool
Eq, Int -> Flag -> ShowS
[Flag] -> ShowS
Flag -> FilePath
(Int -> Flag -> ShowS)
-> (Flag -> FilePath) -> ([Flag] -> ShowS) -> Show Flag
forall a.
(Int -> a -> ShowS) -> (a -> FilePath) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Flag -> ShowS
showsPrec :: Int -> Flag -> ShowS
$cshow :: Flag -> FilePath
show :: Flag -> FilePath
$cshowList :: [Flag] -> ShowS
showList :: [Flag] -> ShowS
Show)