From de7d51b2b5b6445aa116fd89422d33c47b23dc99 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Wed, 19 Jan 2005 23:33:26 +0000
Subject: [PATCH] [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.

---
 Data/IntMap.hs |    4 ++--
 Data/IntSet.hs |    4 ++--
 Data/Map.hs    |    4 ++--
 Data/Set.hs    |    4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

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