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 c2b708b56a..fb981452b6 100644 --- a/compiler/GHC/Utils/Error.hs +++ b/compiler/GHC/Utils/Error.hs @@ -10,7 +10,7 @@ module GHC.Utils.Error ( -- * Basic types - Validity'(..), Validity, andValid, allValid, isValid, getInvalids, orValid, + Validity'(..), Validity, andValid, allValid, getInvalids, orValid, Severity(..), -- * Messages @@ -198,10 +198,6 @@ data Validity' a -- | Monomorphic version of @Validity'@ specialised for 'SDoc's. type Validity = Validity' SDoc -isValid :: Validity' a -> Bool -isValid IsValid = True -isValid (NotValid {}) = False - andValid :: Validity' a -> Validity' a -> Validity' a andValid IsValid v = v andValid v _ = v |