From 01f5ed14e67d0f4f3bf23b9506fe91b226cfe769 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Sun, 15 Apr 2018 17:40:36 +0300
Subject: [PATCH] Muse reader: don't allow footnote references inside links
---
src/Text/Pandoc/Readers/Muse.hs | 2 ++
test/Tests/Readers/Muse.hs | 3 +++
2 files changed, 5 insertions(+)
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 0dba0c4cb..c417588b8 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -822,6 +822,8 @@ anchor = try $ do
-- | Parse a footnote reference.
footnote :: PandocMonad m => MuseParser m (F Inlines)
footnote = try $ do
+ inLink <- museInLink <$> getState
+ guard $ not inLink
ref <- noteMarker
return $ do
notes <- asksF museNotes
diff --git a/test/Tests/Readers/Muse.hs b/test/Tests/Readers/Muse.hs
index 11ec9464f..5c7460afe 100644
--- a/test/Tests/Readers/Muse.hs
+++ b/test/Tests/Readers/Muse.hs
@@ -210,6 +210,9 @@ tests =
, "No implicit links" =: "http://example.org/index.php?action=view&id=1"
=?> para "http://example.org/index.php?action=view&id=1"
, "Link with empty URL" =: "[[][empty URL]]" =?> para (link "" "" (text "empty URL"))
+ , "No footnotes inside links" =:
+ "[[https://amusewiki.org/][foo[1]]" =?>
+ para (link "https://amusewiki.org/" "" (text "foo[1"))
]
, testGroup "Literal"