From 596f8fd06b56a4afe9497c727a522c2f287be7f3 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Mon, 18 Feb 2019 15:53:19 +0300 Subject: hlint Muse --- src/Text/Pandoc/Writers/Muse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Writers') diff --git a/src/Text/Pandoc/Writers/Muse.hs b/src/Text/Pandoc/Writers/Muse.hs index 2ceeaab37..7cdb25608 100644 --- a/src/Text/Pandoc/Writers/Muse.hs +++ b/src/Text/Pandoc/Writers/Muse.hs @@ -504,9 +504,9 @@ stringStartsWithSpace "" = False fixOrEscape :: Bool -> Inline -> Bool fixOrEscape sp (Str "-") = sp fixOrEscape sp (Str s@('-':x:_)) = (sp && isSpace x) || isHorizontalRule s -fixOrEscape sp (Str (";")) = not sp +fixOrEscape sp (Str ";") = not sp fixOrEscape sp (Str (';':x:_)) = not sp && isSpace x -fixOrEscape _ (Str (">")) = True +fixOrEscape _ (Str ">") = True fixOrEscape _ (Str ('>':x:_)) = isSpace x fixOrEscape sp (Str s) = (sp && (startsWithMarker isDigit s || startsWithMarker isAsciiLower s || -- cgit v1.2.3