src/Tools/Haskell/Completion.hs

--- a/src/Tools/Haskell/Completion.hs	Mon Nov 12 15:14:12 2018 +0100
+++ b/src/Tools/Haskell/Completion.hs	Mon Nov 12 15:36:55 2018 +0100
@@ -53,10 +53,7 @@
 markup_report :: [T] -> String
 markup_report [] = ""
 markup_report elems =
-  elems
-  |> map (markup_element #> uncurry XML.Elem)
-  |> XML.Elem Markup.report
-  |> YXML.string_of
+  YXML.string_of $ XML.Elem (Markup.report, map (XML.Elem . markup_element) elems)
 
 make_report :: Int -> (String, Properties.T) -> ((String -> Bool) -> [Name]) -> String
 make_report limit name_props make_names =