[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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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.