module GHC.Data.Bool
  ( OverridingBool(..)
  , overrideWith
  )
where

import GHC.Prelude

data OverridingBool
  = Auto
  | Always
  | Never
  deriving Int -> OverridingBool -> ShowS
[OverridingBool] -> ShowS
OverridingBool -> String
(Int -> OverridingBool -> ShowS)
-> (OverridingBool -> String)
-> ([OverridingBool] -> ShowS)
-> Show OverridingBool
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverridingBool] -> ShowS
$cshowList :: [OverridingBool] -> ShowS
show :: OverridingBool -> String
$cshow :: OverridingBool -> String
showsPrec :: Int -> OverridingBool -> ShowS
$cshowsPrec :: Int -> OverridingBool -> ShowS
Show

overrideWith :: Bool -> OverridingBool -> Bool
overrideWith :: Bool -> OverridingBool -> Bool
overrideWith Bool
b OverridingBool
Auto   = Bool
b
overrideWith Bool
_ OverridingBool
Always = Bool
True
overrideWith Bool
_ OverridingBool
Never  = Bool
False