From f4928d87f36bf254a587c0fe1d0feee7f673cd66 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 12:57:49 +0000
Subject: [PATCH] [project @ 1998-08-14 12:57:49 by sof] Specialise succ and
 pred

---
 ghc/lib/std/PrelBase.lhs |    2 ++
 1 file changed, 2 insertions(+)

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