diff options
Diffstat (limited to 'compiler/GHC/Utils/Error.hs')
-rw-r--r-- | compiler/GHC/Utils/Error.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/compiler/GHC/Utils/Error.hs b/compiler/GHC/Utils/Error.hs index 7d2eb34c3b..db8107a65f 100644 --- a/compiler/GHC/Utils/Error.hs +++ b/compiler/GHC/Utils/Error.hs @@ -11,7 +11,7 @@ module GHC.Utils.Error ( -- * Basic types - Validity'(..), Validity, andValid, allValid, getInvalids, orValid, + Validity'(..), Validity, andValid, allValid, getInvalids, Severity(..), -- * Messages @@ -212,10 +212,6 @@ allValid (v : vs) = v `andValid` allValid vs getInvalids :: [Validity' a] -> [a] getInvalids vs = [d | NotValid d <- vs] -orValid :: Validity' a -> Validity' a -> Validity' a -orValid IsValid _ = IsValid -orValid _ v = v - -- ----------------------------------------------------------------------------- -- Collecting up messages for later ordering and printing. |