diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2018-11-07 09:52:12 +0100 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2018-11-07 09:52:12 +0100 |
| commit | 62a5f6fa85fcaa0067cf66a2c573e4fc678aab96 (patch) | |
| tree | 5506eb0531aa1d8f05540cf3352760e3f24f3a87 /src | |
| parent | 5f030f3c2c515def34846aa2135ce606e2edc1df (diff) | |
| download | pandoc-62a5f6fa85fcaa0067cf66a2c573e4fc678aab96.tar.gz | |
ICML writer: fix missing type signature warning
Diffstat (limited to 'src')
| -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 |