[project @ 2003-05-12 08:57:55 by ross]

[ghc-base.git] / Data / Dynamic.hs

diff --git a/Data/Dynamic.hs b/Data/Dynamic.hs
index 4a12b20..cbc98a0 100644 (file)
--- a/Data/Dynamic.hs
+++ b/Data/Dynamic.hs
@@ -193,6 +193,7 @@ dynApp f x = case dynApply f x of
                                "Can't apply function " ++ show f ++
                                " to argument " ++ show x)
 
+#ifndef __HUGS__
 -------------------------------------------------------------
 --
 --             Type representations
@@ -201,7 +202,6 @@ dynApp f x = case dynApply f x of
 
 -- | A concrete representation of a (monomorphic) type.  'TypeRep'
 -- supports reasonably efficient equality.
-#ifndef __HUGS__
 data TypeRep = TypeRep !Key TyCon [TypeRep] 
 
 -- Compare keys for equality