diff options
Diffstat (limited to 'compiler/GHC/Prelude.hs')
| -rw-r--r-- | compiler/GHC/Prelude.hs | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/compiler/GHC/Prelude.hs b/compiler/GHC/Prelude.hs index b44fa656c4..f61dad9517 100644 --- a/compiler/GHC/Prelude.hs +++ b/compiler/GHC/Prelude.hs @@ -1,7 +1,5 @@ {-# LANGUAGE CPP #-} {-# OPTIONS_HADDOCK not-home #-} -{-# LANGUAGE PatternSynonyms #-} -{-# LANGUAGE ViewPatterns #-} -- | Custom GHC "Prelude" -- @@ -17,12 +15,6 @@ module GHC.Prelude (module X ,module Bits ,shiftL, shiftR -#if __GLASGOW_HASKELL__ < 903 - ,SomeExceptionWithBacktrace - ,pattern SomeExceptionWithBacktrace -#else - ,SomeExceptionWithBacktrace(..) -#endif ) where @@ -45,11 +37,6 @@ NoImplicitPrelude. There are two motivations for this: import Prelude as X hiding ((<>)) import Data.Foldable as X (foldl') -#if __GLASGOW_HASKELL__ < 903 -import Control.Exception ( SomeException(..) ) -#else -import Control.Exception ( SomeExceptionWithBacktrace(..) ) -#endif #if MIN_VERSION_base(4,16,0) import GHC.Bits as Bits hiding (shiftL, shiftR) @@ -99,13 +86,3 @@ shiftR = Bits.shiftR shiftL = Bits.unsafeShiftL shiftR = Bits.unsafeShiftR #endif - -#if __GLASGOW_HASKELL__ < 903 -type SomeExceptionWithBacktrace = SomeException - -{-# COMPLETE SomeExceptionWithBacktrace #-} -pattern SomeExceptionWithBacktrace :: forall. SomeException -> () -> SomeException -pattern SomeExceptionWithBacktrace e unit <- (\x -> ((), x) -> (unit, e)) - where - SomeExceptionWithBacktrace (SomeException e) _ = SomeException e -#endif |