devel/hs-data-pprint/files/patch-Data_PPrint.hs


1
2
3
4
5
6
7
8
9

--- Data/PPrint.hs.orig 2018-04-13 19:36:43 UTC
+++ Data/PPrint.hs
@@ -60,6 +60,6 @@ a === b = do
 showBotts :: [(String, String)] -> Doc
 showBotts es = vcat $ map f es
  where
-    f (i, e) = text i <> text ":" <+> vcat (map text $ lines e)
+    f (i, e) = text i Text.PrettyPrint.HughesPJ.<> text ":" <+> vcat (map text $ lines e)