@@ -435,7 +435,7 @@ isHorizontalRule s = length s >= 4 && all (== '-') s
436stringStartsWithSpace :: String -> Bool
436stringStartsWithSpace :: String -> Bool
437stringStartsWithSpace (x:_) = isSpace x
437stringStartsWithSpace (x:_) = isSpace x
438−stringStartsWithSpace [] = False
438+stringStartsWithSpace "" = False
440fixOrEscape :: Bool -> Inline -> Bool
440fixOrEscape :: Bool -> Inline -> Bool
441fixOrEscape sp (Str "-") = sp
441fixOrEscape sp (Str "-") = sp