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 6ef504423ddd..ba5741bce84f 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
--
GitLab