@@ -172,10 +172,7 @@ referenceKey = try $ do
172 blanklines
172 blanklines
173 return $ KeyBlock label (removeTrailingSpace src, tit)
173 return $ KeyBlock label (removeTrailingSpace src, tit)
175−noteMarker = try $ do
178− manyTill (noneOf " \t\n") (char ']')
175+noteMarker = string "[^" >> manyTill (noneOf " \t\n") (char ']')
180rawLine = try $ do
177rawLine = try $ do
181 notFollowedBy blankline
178 notFollowedBy blankline