never executed always true always false

    1 module GHC.Data.Bool
    2   ( OverridingBool(..)
    3   , overrideWith
    4   )
    5 where
    6 
    7 import GHC.Prelude
    8 
    9 data OverridingBool
   10   = Auto
   11   | Always
   12   | Never
   13   deriving Show
   14 
   15 overrideWith :: Bool -> OverridingBool -> Bool
   16 overrideWith b Auto   = b
   17 overrideWith _ Always = True
   18 overrideWith _ Never  = False