596f8fd · typeable/pandoc

git.iko.soy/typeable/pandoc

hlint Muse

commit596f8fd06b56a4afe9497c727a522c2f287be7f3 authorAlexander Krotov <ilabdsf@gmail.com> dateMon 18 Feb 2019, 15:53 (8 years ago) parentc4814ea

2 files changed+3−3

unifiedsplit

src/Text/Pandoc/Readers/Muse.hs+1−1

@@ -803,7 +803,7 @@ footnote = try $ do

803803 return $ do

804804 notes <- asksF museNotes

805805 case M.lookup ref notes of

806− Nothing -> return $ B.str $ ref

806+ Nothing -> return $ B.str ref

807807 Just (_pos, contents) -> do

808808 st <- askF

809809 let contents' = runF contents st { museNotes = M.delete ref (museNotes st) }

src/Text/Pandoc/Writers/Muse.hs+2−2

@@ -504,9 +504,9 @@ stringStartsWithSpace "" = False

504504fixOrEscape :: Bool -> Inline -> Bool

505505fixOrEscape sp (Str "-") = sp

506506fixOrEscape sp (Str s@('-':x:_)) = (sp && isSpace x) || isHorizontalRule s

507−fixOrEscape sp (Str (";")) = not sp

507+fixOrEscape sp (Str ";") = not sp

508508fixOrEscape sp (Str (';':x:_)) = not sp && isSpace x

509−fixOrEscape _ (Str (">")) = True

509+fixOrEscape _ (Str ">") = True

510510fixOrEscape _ (Str ('>':x:_)) = isSpace x

511511fixOrEscape sp (Str s) = (sp && (startsWithMarker isDigit s ||

512512 startsWithMarker isAsciiLower s ||