module CookieTray.Command where import CookieTray.Types import Prelude (Eq, Ord, Show) data Command = Command { Command -> Name name :: Name, Command -> Meta meta :: Meta, Command -> Action (Expiring Value) action :: Action (Expiring Value) } deriving (Command -> Command -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Command -> Command -> Bool $c/= :: Command -> Command -> Bool == :: Command -> Command -> Bool $c== :: Command -> Command -> Bool Eq, Eq Command Command -> Command -> Bool Command -> Command -> Ordering Command -> Command -> Command 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 :: Command -> Command -> Command $cmin :: Command -> Command -> Command max :: Command -> Command -> Command $cmax :: Command -> Command -> Command >= :: Command -> Command -> Bool $c>= :: Command -> Command -> Bool > :: Command -> Command -> Bool $c> :: Command -> Command -> Bool <= :: Command -> Command -> Bool $c<= :: Command -> Command -> Bool < :: Command -> Command -> Bool $c< :: Command -> Command -> Bool compare :: Command -> Command -> Ordering $ccompare :: Command -> Command -> Ordering Ord, Int -> Command -> ShowS [Command] -> ShowS Command -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Command] -> ShowS $cshowList :: [Command] -> ShowS show :: Command -> String $cshow :: Command -> String showsPrec :: Int -> Command -> ShowS $cshowsPrec :: Int -> Command -> ShowS Show) class ToCommandList a where toCommandList :: a -> [Command] instance ToCommandList Command where toCommandList :: Command -> [Command] toCommandList = (forall a. a -> [a] -> [a] : [])