module Argo.Internal.Type.Flag where data Flag = Help | Spaces String | Tab | Version deriving (Flag -> Flag -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Flag -> Flag -> Bool $c/= :: Flag -> Flag -> Bool == :: Flag -> Flag -> Bool $c== :: Flag -> Flag -> Bool Eq, Int -> Flag -> ShowS [Flag] -> ShowS Flag -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Flag] -> ShowS $cshowList :: [Flag] -> ShowS show :: Flag -> String $cshow :: Flag -> String showsPrec :: Int -> Flag -> ShowS $cshowsPrec :: Int -> Flag -> ShowS Show)