From: simonpj <unknown>
Date: Wed, 17 Feb 1999 21:54:48 +0000 (+0000)
Subject: [project @ 1999-02-17 21:54:48 by simonpj]
X-Git-Tag: Approximately_9120_patches~6537
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=db342437d5a0cca1813b023ac186b51c46506655;p=ghc-hetmet.git

[project @ 1999-02-17 21:54:48 by simonpj]
Reinstate specialisations for fromIntegral and realToFrac
---

diff --git a/ghc/lib/std/PrelNumExtra.lhs b/ghc/lib/std/PrelNumExtra.lhs
index 4fcea85..291c745 100644
--- a/ghc/lib/std/PrelNumExtra.lhs
+++ b/ghc/lib/std/PrelNumExtra.lhs
@@ -332,7 +332,7 @@ instance  Show Double  where
 %*********************************************************
 
 \begin{code}
-{- SPECIALIZE fromIntegral ::
+{-# SPECIALIZE fromIntegral ::
     Int		-> Rational,
     Integer	-> Rational,
     Int  	-> Int,
@@ -346,7 +346,7 @@ instance  Show Double  where
 fromIntegral	:: (Integral a, Num b) => a -> b
 fromIntegral	=  fromInteger . toInteger
 
-{- SPECIALIZE realToFrac ::
+{-# SPECIALIZE realToFrac ::
     Double	-> Rational, 
     Rational	-> Double,
     Float	-> Rational,