From 8917c9dc9563fb018b12019a1bfa81777da75cd9 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Mon, 12 May 2003 08:57:55 +0000
Subject: [PATCH] [project @ 2003-05-12 08:57:55 by ross] cosmetic change

---
 Data/Dynamic.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4