projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Data.PackedString: Data.Generics is GHC-only
[ghc-base.git]
/
Data
/
PackedString.hs
diff --git
a/Data/PackedString.hs
b/Data/PackedString.hs
index
50d6b00
..
e008401
100644
(file)
--- 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
import Data.Array.IO
import Data.Typeable
import Data.Char
+#ifdef __GLASGOW_HASKELL__
import Data.Generics
import Data.Generics
+#endif
import System.IO
import System.IO
@@
-434,6
+436,7
@@
joinPS sep = concatPS . intersperse sep
#endif
#endif
+#ifdef __GLASGOW_HASKELL__
instance Data PackedString where
gunfold k z c = error "gunfold"
toConstr (PS _) = con_PS
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]
con_PS = mkConstr ty_PackedString "PS" [] Prefix
ty_PackedString = mkDataType "Data.PackedString.PackedString" [con_PS]
+#endif