From: sof <unknown>
Date: Fri, 14 Aug 1998 12:57:49 +0000 (+0000)
Subject: [project @ 1998-08-14 12:57:49 by sof]
X-Git-Tag: Approx_2487_patches~368
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f4928d87f36bf254a587c0fe1d0feee7f673cd66;p=ghc-hetmet.git

[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
--- 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