diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/ICML.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/ICML.hs b/src/Text/Pandoc/Writers/ICML.hs index 1a7759740..f463c75c5 100644 --- a/src/Text/Pandoc/Writers/ICML.hs +++ b/src/Text/Pandoc/Writers/ICML.hs @@ -483,9 +483,10 @@ mergeStrings opts = mergeStrings' . map spaceToStr WrapPreserve -> Str "\n" _ -> Str " " spaceToStr x = x -mergeStrings' (Str x : Str y : zs) = mergeStrings' (Str (x ++ y) : zs) -mergeStrings' (x : xs) = x : mergeStrings' xs -mergeStrings' [] = [] + + mergeStrings' (Str x : Str y : zs) = mergeStrings' (Str (x ++ y) : zs) + mergeStrings' (x : xs) = x : mergeStrings' xs + mergeStrings' [] = [] -- | Intersperse line breaks intersperseBrs :: [Doc] -> Doc |