From b5e62a5c0963cf10338170a94f6a5a2c5b39ad1d Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 20 Dec 2017 14:00:30 +0300
Subject: Muse reader: require that note references does not start with 0

---
 src/Text/Pandoc/Readers/Muse.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs
index 46dcf38d9..1ea78676b 100644
--- a/src/Text/Pandoc/Readers/Muse.hs
+++ b/src/Text/Pandoc/Readers/Muse.hs
@@ -336,7 +336,9 @@ para = do
 noteMarker :: PandocMonad m => MuseParser m String
 noteMarker = try $ do
   char '['
-  many1Till digit $ char ']'
+  first <- oneOf "123456789"
+  rest <- manyTill digit (char ']')
+  return $ first:rest
 
 -- Amusewiki version of note
 -- Parsing is similar to list item, except that note marker is used instead of list marker
-- 
cgit v1.2.3