@@ -483,9 +483,10 @@ mergeStrings opts = mergeStrings' . map spaceToStr
483483 WrapPreserve -> Str "\n"
484484 _ -> Str " "
485485 spaceToStr x = x
486−mergeStrings' (Str x : Str y : zs) = mergeStrings' (Str (x ++ y) : zs)
487−mergeStrings' (x : xs) = x : mergeStrings' xs
488−mergeStrings' [] = []
486+
487+ mergeStrings' (Str x : Str y : zs) = mergeStrings' (Str (x ++ y) : zs)
488+ mergeStrings' (x : xs) = x : mergeStrings' xs
489+ mergeStrings' [] = []
489490
490491-- | Intersperse line breaks
491492intersperseBrs :: [Doc] -> Doc