From: ross <unknown>
Date: Wed, 19 Jan 2005 23:33:26 +0000 (+0000)
Subject: [project @ 2005-01-19 23:33:25 by ross]
X-Git-Tag: nhc98-1-18-release~97
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=de7d51b2b5b6445aa116fd89422d33c47b23dc99;p=haskell-directory.git

[project @ 2005-01-19 23:33:25 by ross]
Move comments inside #if's they refer to -- makes the cpp output, e.g. as
seen by Hugs users, more sensible.
---

diff --git a/Data/IntMap.hs b/Data/IntMap.hs
index 46c6bee..9056628 100644
--- a/Data/IntMap.hs
+++ b/Data/IntMap.hs
@@ -209,12 +209,12 @@ type Prefix = Int
 type Mask   = Int
 type Key    = Int
 
+#if __GLASGOW_HASKELL__
+
 {--------------------------------------------------------------------
   A Data instance  
 --------------------------------------------------------------------}
 
-#if __GLASGOW_HASKELL__
-
 -- This instance preserves data abstraction at the cost of inefficiency.
 -- We omit reflection services for the sake of data abstraction.
 
diff --git a/Data/IntSet.hs b/Data/IntSet.hs
index e06c6da..d8e44ab 100644
--- a/Data/IntSet.hs
+++ b/Data/IntSet.hs
@@ -159,12 +159,12 @@ data IntSet = Nil
 type Prefix = Int
 type Mask   = Int
 
+#if __GLASGOW_HASKELL__
+
 {--------------------------------------------------------------------
   A Data instance  
 --------------------------------------------------------------------}
 
-#if __GLASGOW_HASKELL__
-
 -- This instance preserves data abstraction at the cost of inefficiency.
 -- We omit reflection services for the sake of data abstraction.
 
diff --git a/Data/Map.hs b/Data/Map.hs
index 9e78149..f8e7ccb 100644
--- a/Data/Map.hs
+++ b/Data/Map.hs
@@ -188,12 +188,12 @@ data Map k a  = Tip
 
 type Size     = Int
 
+#if __GLASGOW_HASKELL__
+
 {--------------------------------------------------------------------
   A Data instance  
 --------------------------------------------------------------------}
 
-#if __GLASGOW_HASKELL__
-
 -- This instance preserves data abstraction at the cost of inefficiency.
 -- We omit reflection services for the sake of data abstraction.
 
diff --git a/Data/Set.hs b/Data/Set.hs
index b357f96..e85df99 100644
--- a/Data/Set.hs
+++ b/Data/Set.hs
@@ -146,12 +146,12 @@ data Set a    = Tip
 
 type Size     = Int
 
+#if __GLASGOW_HASKELL__
+
 {--------------------------------------------------------------------
   A Data instance  
 --------------------------------------------------------------------}
 
-#if __GLASGOW_HASKELL__
-
 -- This instance preserves data abstraction at the cost of inefficiency.
 -- We omit reflection services for the sake of data abstraction.