Make compatible with upcoming Prelude.<> export in GHC 8.4/base-4.11
authorHerbert Valerio Riedel <hvr@gnu.org>
Wed, 20 Sep 2017 20:11:04 +0000 (22:11 +0200)
committerHerbert Valerio Riedel <hvr@gnu.org>
Wed, 20 Sep 2017 20:11:04 +0000 (22:11 +0200)
src/Text/PrettyPrint.hs
src/Text/PrettyPrint/Annotated.hs
src/Text/PrettyPrint/Annotated/HughesPJ.hs
src/Text/PrettyPrint/HughesPJ.hs

index 6c65111..2a5abae 100644 (file)
@@ -41,7 +41,7 @@ module Text.PrettyPrint (
 
         -- ** Combining documents
         empty,
-        (<>), (<+>), hcat, hsep,
+        (X.<>), (<+>), hcat, hsep,
         ($$), ($+$), vcat,
         sep, cat,
         fsep, fcat,
@@ -67,5 +67,5 @@ module Text.PrettyPrint (
 
     ) where
 
-import Text.PrettyPrint.HughesPJ
+import Text.PrettyPrint.HughesPJ as X
 
index a9e5862..3db6639 100644 (file)
@@ -41,7 +41,7 @@ module Text.PrettyPrint.Annotated (
 
         -- ** Combining documents
         empty,
-        (<>), (<+>), hcat, hsep,
+        (X.<>), (<+>), hcat, hsep,
         ($$), ($+$), vcat,
         sep, cat,
         fsep, fcat,
@@ -74,5 +74,5 @@ module Text.PrettyPrint.Annotated (
 
     ) where
 
-import Text.PrettyPrint.Annotated.HughesPJ
+import Text.PrettyPrint.Annotated.HughesPJ as X
 
index 33623ff..44cce28 100644 (file)
@@ -84,6 +84,9 @@ module Text.PrettyPrint.Annotated.HughesPJ (
 
 import Control.DeepSeq ( NFData(rnf) )
 import Data.Function   ( on )
+#if __GLASGOW_HASKELL__ >= 803
+import Prelude         hiding ( (<>) )
+#endif
 #if __GLASGOW_HASKELL__ >= 800
 import qualified Data.Semigroup as Semi ( Semigroup((<>)) )
 #elif __GLASGOW_HASKELL__ < 709
index 98e1bd7..5d06aeb 100644 (file)
@@ -86,6 +86,9 @@ import qualified Text.PrettyPrint.Annotated.HughesPJ as Ann
 
 import Control.DeepSeq ( NFData(rnf) )
 import Data.Function   ( on )
+#if __GLASGOW_HASKELL__ >= 803
+import Prelude         hiding ( (<>) )
+#endif
 #if __GLASGOW_HASKELL__ >= 800
 import qualified Data.Semigroup as Semi ( Semigroup((<>)) )
 #elif __GLASGOW_HASKELL__ < 709