From 2b4305df56aa7f821e5596b695a3f75e56cbd2d5 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Thu, 6 Feb 2003 10:41:10 +0000
Subject: [PATCH] [project @ 2003-02-06 10:41:10 by ross] Hugs-only: special
 definitions of fromInt & fromDouble.

---
 Data/Complex.hs |   10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Data/Complex.hs b/Data/Complex.hs
index c9f8334..3b15691 100644
--- a/Data/Complex.hs
+++ b/Data/Complex.hs
@@ -43,6 +43,10 @@ import Prelude
 import Data.Dynamic
 #endif
 
+#ifdef __HUGS__
+import Hugs.Prelude(Num(fromInt), Fractional(fromDouble))
+#endif
+
 infix  6  :+
 
 -- -----------------------------------------------------------------------------
@@ -106,6 +110,9 @@ instance  (RealFloat a) => Num (Complex a)  where
     signum 0		=  0
     signum z@(x:+y)	=  x/r :+ y/r  where r = magnitude z
     fromInteger n	=  fromInteger n :+ 0
+#ifdef __HUGS__
+    fromInt n		=  fromInt n :+ 0
+#endif
 
 instance  (RealFloat a) => Fractional (Complex a)  where
     {-# SPECIALISE instance Fractional (Complex Float) #-}
@@ -117,6 +124,9 @@ instance  (RealFloat a) => Fractional (Complex a)  where
 				 d   = x'*x'' + y'*y''
 
     fromRational a	=  fromRational a :+ 0
+#ifdef __HUGS__
+    fromDouble a	=  fromDouble a :+ 0
+#endif
 
 instance  (RealFloat a) => Floating (Complex a)	where
     {-# SPECIALISE instance Floating (Complex Float) #-}
-- 
1.7.10.4