module Tldr.Types where import System.Console.ANSI data Locale = English | Missing | Other String | Unknown String data ConsoleSetting = ConsoleSetting { ConsoleSetting -> Bool italic :: Bool , ConsoleSetting -> Underlining underline :: Underlining , ConsoleSetting -> BlinkSpeed blink :: BlinkSpeed , ConsoleSetting -> ColorIntensity fgIntensity :: ColorIntensity , ConsoleSetting -> Color fgColor :: Color , ConsoleSetting -> ColorIntensity bgIntensity :: ColorIntensity , ConsoleSetting -> ConsoleIntensity consoleIntensity :: ConsoleIntensity } data TldrOpts = TldrOpts { TldrOpts -> TldrCommand tldrAction :: TldrCommand , TldrOpts -> Maybe Int autoUpdateInterval :: Maybe Int } deriving (Int -> TldrOpts -> ShowS [TldrOpts] -> ShowS TldrOpts -> String (Int -> TldrOpts -> ShowS) -> (TldrOpts -> String) -> ([TldrOpts] -> ShowS) -> Show TldrOpts forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [TldrOpts] -> ShowS $cshowList :: [TldrOpts] -> ShowS show :: TldrOpts -> String $cshow :: TldrOpts -> String showsPrec :: Int -> TldrOpts -> ShowS $cshowsPrec :: Int -> TldrOpts -> ShowS Show) data TldrCommand = UpdateIndex | ViewPage ViewOptions [String] | About deriving (Int -> TldrCommand -> ShowS [TldrCommand] -> ShowS TldrCommand -> String (Int -> TldrCommand -> ShowS) -> (TldrCommand -> String) -> ([TldrCommand] -> ShowS) -> Show TldrCommand forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [TldrCommand] -> ShowS $cshowList :: [TldrCommand] -> ShowS show :: TldrCommand -> String $cshow :: TldrCommand -> String showsPrec :: Int -> TldrCommand -> ShowS $cshowsPrec :: Int -> TldrCommand -> ShowS Show, TldrCommand -> TldrCommand -> Bool (TldrCommand -> TldrCommand -> Bool) -> (TldrCommand -> TldrCommand -> Bool) -> Eq TldrCommand forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: TldrCommand -> TldrCommand -> Bool $c/= :: TldrCommand -> TldrCommand -> Bool == :: TldrCommand -> TldrCommand -> Bool $c== :: TldrCommand -> TldrCommand -> Bool Eq, Eq TldrCommand Eq TldrCommand -> (TldrCommand -> TldrCommand -> Ordering) -> (TldrCommand -> TldrCommand -> Bool) -> (TldrCommand -> TldrCommand -> Bool) -> (TldrCommand -> TldrCommand -> Bool) -> (TldrCommand -> TldrCommand -> Bool) -> (TldrCommand -> TldrCommand -> TldrCommand) -> (TldrCommand -> TldrCommand -> TldrCommand) -> Ord TldrCommand TldrCommand -> TldrCommand -> Bool TldrCommand -> TldrCommand -> Ordering TldrCommand -> TldrCommand -> TldrCommand forall a. Eq a -> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> a) -> (a -> a -> a) -> Ord a min :: TldrCommand -> TldrCommand -> TldrCommand $cmin :: TldrCommand -> TldrCommand -> TldrCommand max :: TldrCommand -> TldrCommand -> TldrCommand $cmax :: TldrCommand -> TldrCommand -> TldrCommand >= :: TldrCommand -> TldrCommand -> Bool $c>= :: TldrCommand -> TldrCommand -> Bool > :: TldrCommand -> TldrCommand -> Bool $c> :: TldrCommand -> TldrCommand -> Bool <= :: TldrCommand -> TldrCommand -> Bool $c<= :: TldrCommand -> TldrCommand -> Bool < :: TldrCommand -> TldrCommand -> Bool $c< :: TldrCommand -> TldrCommand -> Bool compare :: TldrCommand -> TldrCommand -> Ordering $ccompare :: TldrCommand -> TldrCommand -> Ordering $cp1Ord :: Eq TldrCommand Ord) data ViewOptions = ViewOptions { ViewOptions -> Maybe String platformOption :: Maybe String , ViewOptions -> Maybe String languageOption :: Maybe String } deriving (Int -> ViewOptions -> ShowS [ViewOptions] -> ShowS ViewOptions -> String (Int -> ViewOptions -> ShowS) -> (ViewOptions -> String) -> ([ViewOptions] -> ShowS) -> Show ViewOptions forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [ViewOptions] -> ShowS $cshowList :: [ViewOptions] -> ShowS show :: ViewOptions -> String $cshow :: ViewOptions -> String showsPrec :: Int -> ViewOptions -> ShowS $cshowsPrec :: Int -> ViewOptions -> ShowS Show, ViewOptions -> ViewOptions -> Bool (ViewOptions -> ViewOptions -> Bool) -> (ViewOptions -> ViewOptions -> Bool) -> Eq ViewOptions forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: ViewOptions -> ViewOptions -> Bool $c/= :: ViewOptions -> ViewOptions -> Bool == :: ViewOptions -> ViewOptions -> Bool $c== :: ViewOptions -> ViewOptions -> Bool Eq, Eq ViewOptions Eq ViewOptions -> (ViewOptions -> ViewOptions -> Ordering) -> (ViewOptions -> ViewOptions -> Bool) -> (ViewOptions -> ViewOptions -> Bool) -> (ViewOptions -> ViewOptions -> Bool) -> (ViewOptions -> ViewOptions -> Bool) -> (ViewOptions -> ViewOptions -> ViewOptions) -> (ViewOptions -> ViewOptions -> ViewOptions) -> Ord ViewOptions ViewOptions -> ViewOptions -> Bool ViewOptions -> ViewOptions -> Ordering ViewOptions -> ViewOptions -> ViewOptions forall a. Eq a -> (a -> a -> Ordering) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> Bool) -> (a -> a -> a) -> (a -> a -> a) -> Ord a min :: ViewOptions -> ViewOptions -> ViewOptions $cmin :: ViewOptions -> ViewOptions -> ViewOptions max :: ViewOptions -> ViewOptions -> ViewOptions $cmax :: ViewOptions -> ViewOptions -> ViewOptions >= :: ViewOptions -> ViewOptions -> Bool $c>= :: ViewOptions -> ViewOptions -> Bool > :: ViewOptions -> ViewOptions -> Bool $c> :: ViewOptions -> ViewOptions -> Bool <= :: ViewOptions -> ViewOptions -> Bool $c<= :: ViewOptions -> ViewOptions -> Bool < :: ViewOptions -> ViewOptions -> Bool $c< :: ViewOptions -> ViewOptions -> Bool compare :: ViewOptions -> ViewOptions -> Ordering $ccompare :: ViewOptions -> ViewOptions -> Ordering $cp1Ord :: Eq ViewOptions Ord)