Muse writer: use "" instead of [] for empty String

This commit is contained in:
Alexander Krotov
2018-09-11 11:49:30 +03:00
parent 165a61095c
commit 97f6833ee5
+1 -1
View File
@@ -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