import Data.Array.IO
import Data.Typeable
import Data.Char
+#ifdef __GLASGOW_HASKELL__
import Data.Generics
+#endif
import System.IO
#endif
+#ifdef __GLASGOW_HASKELL__
instance Data PackedString where
gunfold k z c = error "gunfold"
toConstr (PS _) = con_PS
con_PS = mkConstr ty_PackedString "PS" [] Prefix
ty_PackedString = mkDataType "Data.PackedString.PackedString" [con_PS]
+#endif