X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FPackedString.hs;h=e00840114ea379f9e098f1b30f86347c461fbfd5;hb=29648d8ef59c7f938efa427fb2333c531e37165e;hp=50d6b0024b54d25c1aa707c446f1efc5e4788395;hpb=b12ac2e1533baca5a18b7b0de09fb036570f035f;p=ghc-base.git

diff --git a/Data/PackedString.hs b/Data/PackedString.hs
index 50d6b00..e008401 100644
--- a/Data/PackedString.hs
+++ b/Data/PackedString.hs
@@ -79,7 +79,9 @@ import Data.Array.Unboxed
 import Data.Array.IO
 import Data.Typeable
 import Data.Char
+#ifdef __GLASGOW_HASKELL__
 import Data.Generics
+#endif
 
 import System.IO
 
@@ -434,6 +436,7 @@ joinPS sep  = concatPS . intersperse sep
 
 #endif
 
+#ifdef __GLASGOW_HASKELL__
 instance Data PackedString where
      gunfold k z c = error "gunfold"
      toConstr (PS _) = con_PS
@@ -441,3 +444,4 @@ instance Data PackedString where
 
 con_PS = mkConstr ty_PackedString "PS" [] Prefix
 ty_PackedString   = mkDataType "Data.PackedString.PackedString" [con_PS]
+#endif