X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=GHC%2FErr.lhs-boot;h=5b49c4efe1e85a7e5035c271983105f6c9a7fb97;hb=1b1289f3c7cba2895500623a1fa748e9b2873669;hp=70afbb91219127dd94955548cb718c6eccb39ed8;hpb=2136b0babab0c8cf73075a2a0abb4f19453e1f77;p=ghc-base.git diff --git a/GHC/Err.lhs-boot b/GHC/Err.lhs-boot index 70afbb9..5b49c4e 100644 --- a/GHC/Err.lhs-boot +++ b/GHC/Err.lhs-boot @@ -4,7 +4,7 @@ -- Ghc.Err.hs-boot --------------------------------------------------------------------------- -module GHC.Err( error, divZeroError ) where +module GHC.Err( error, divZeroError, overflowError ) where -- The type signature for 'error' is a gross hack. -- First, we can't give an accurate type for error, because it mentions @@ -20,4 +20,7 @@ error :: a -- divide by zero is needed quite early divZeroError :: a + +-- overflow is needed quite early +overflowError :: a \end{code}