diff options
| -rw-r--r-- | compiler/GHC/Data/Bool.hs | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/compiler/GHC/Data/Bool.hs b/compiler/GHC/Data/Bool.hs index 1428e7d2fd..ab38f8fe78 100644 --- a/compiler/GHC/Data/Bool.hs +++ b/compiler/GHC/Data/Bool.hs @@ -8,11 +8,18 @@ import GHC.Prelude data OverridingBool = Auto - | Always | Never - deriving Show + | Always + deriving + ( Show + , Read -- ^ @since 9.4.1 + , Eq -- ^ @since 9.4.1 + , Ord -- ^ @since 9.4.1 + , Enum -- ^ @since 9.4.1 + , Bounded -- ^ @since 9.4.1 + ) overrideWith :: Bool -> OverridingBool -> Bool overrideWith b Auto = b -overrideWith _ Always = True overrideWith _ Never = False +overrideWith _ Always = True |