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/Readers/Muse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 012eb017d..e89cfecbb 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -803,7 +803,7 @@ footnote = try $ do return $ do notes <- asksF museNotes case M.lookup ref notes of - Nothing -> return $ B.str $ ref + Nothing -> return $ B.str ref Just (_pos, contents) -> do st <- askF let contents' = runF contents st { museNotes = M.delete ref (museNotes st) } -- cgit v1.2.3