[project @ 1998-08-14 12:57:49 by sof]

Specialise succ and pred

diff --git a/ghc/lib/std/PrelBase.lhs b/ghc/lib/std/PrelBase.lhs
index 6ef5044..ba5741b 100644 (file)
--- a/ghc/lib/std/PrelBase.lhs
+++ b/ghc/lib/std/PrelBase.lhs
@@ -224,6 +224,8 @@ class  (Eq a, Show a, Eval a) => Num a  where
 \end{code}
 
 \begin{code}
+{-# SPECIALISE succ :: Int -> Int #-}
+{-# SPECIALISE pred :: Int -> Int #-}
 succ, pred              :: Enum a => a -> a
 succ                    =  toEnum . (+1) . fromEnum
 pred                    =  toEnum . (subtract 1) . fromEnum