X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FSet.hs;h=e85df99cd5ce7529eac4af44c56e026b12ad9cd1;hb=de7d51b2b5b6445aa116fd89422d33c47b23dc99;hp=b357f96d852b9c8930e91123e21c3d433f4eebdb;hpb=ddecf6d634a095c7ec94f10afc4e286ecb6bdf16;p=ghc-base.git

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.