1 files changed, 10 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index 36bb3f760..eb771efe6 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1011,11 +1011,19 @@ note = try $ do
     Nothing -> fail "note not found"
     Just contents -> return (Note contents)
 
+inlinesInBrackets = try $ do
+  char '['
+  results <- many $ count 1 (choice [link, referenceLink, image]) <|>
+                    try (do{res <- inlinesInBrackets; return 
+                    ([Str "["] ++ res ++ [Str "]"])}) <|>
+                    (do{notFollowedBy (char ']'); count 1 inline})
+  char ']'
+  return $ concat results
+
 inlineNote = try $ do
   failIfStrict
   char noteStart
-  char labelStart
-  contents <- manyTill inline (char labelEnd)
+  contents <- inlinesInBrackets
   return (Note [Para contents])
 
 rawLaTeXInline' = do