X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FComplex.hs;fp=Data%2FComplex.hs;h=c9f83341595db00c6f5fe02f0d85184443c0bc51;hb=d12c4f3de454ea031f2258627d388d3d994a3cfd;hp=8ad4c2e4963869ed1eb3eaa8905e63da599e0737;hpb=cbfbac0617770abfb8a0c740bba7e0ca7f6e861d;p=ghc-base.git

diff --git a/Data/Complex.hs b/Data/Complex.hs
index 8ad4c2e..c9f8334 100644
--- a/Data/Complex.hs
+++ b/Data/Complex.hs
@@ -39,7 +39,9 @@ module Data.Complex
 
 import Prelude
 
+#ifndef __NHC__
 import Data.Dynamic
+#endif
 
 infix  6  :+
 
@@ -88,8 +90,10 @@ phase (x:+y)	 = atan2 y x
 -- -----------------------------------------------------------------------------
 -- Instances of Complex
 
+#ifndef __NHC__
 #include "Dynamic.h"
 INSTANCE_TYPEABLE1(Complex,complexTc,"Complex")
+#endif
 
 instance  (RealFloat a) => Num (Complex a)  where
     {-# SPECIALISE instance Num (Complex Float) #-}