From: ross <unknown>
Date: Mon, 12 May 2003 08:57:55 +0000 (+0000)
Subject: [project @ 2003-05-12 08:57:55 by ross]
X-Git-Tag: nhc98-1-18-release~656
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8917c9dc9563fb018b12019a1bfa81777da75cd9;p=ghc-base.git

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

diff --git a/Data/Dynamic.hs b/Data/Dynamic.hs
index 4a12b20..cbc98a0 100644
--- 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