aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorAlexander Krotov <ilabdsf@gmail.com>2018-09-11 11:49:30 +0300
committerAlexander Krotov <ilabdsf@gmail.com>2018-09-11 11:49:30 +0300
commit97f6833ee58667defbf4f203ebd69f5062232563 (patch)
treeef8bb9c94c4df1d4d1ad8cf7ab521bf2167e9430 /src/Text
parent165a61095c08794d1639a683f1c6f1a82387c8d5 (diff)
downloadpandoc-97f6833ee58667defbf4f203ebd69f5062232563.tar.gz
Muse writer: use "" instead of [] for empty String
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/Muse.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs
index 025114a47..26349493b 100644
--- a/src/Text/Pandoc/Writers/Muse.hs
+++ b/src/Text/Pandoc/Writers/Muse.hs
@@ -435,7 +435,7 @@ isHorizontalRule s = length s >= 4 && all (== '-') s
stringStartsWithSpace :: String -> Bool
stringStartsWithSpace (x:_) = isSpace x
-stringStartsWithSpace [] = False
+stringStartsWithSpace "" = False
fixOrEscape :: Bool -> Inline -> Bool
fixOrEscape sp (Str "-") = sp