@@ -481,11 +481,17 @@ paraUntil end = do
481481 guard $ not inPara
482482 first (fmap B.para) <$> paraContentsUntil end
483483
484−noteMarker :: PandocMonad m => MuseParser m String
485−noteMarker = try $ (:)
486− <$ char '['
484+noteMarker' :: PandocMonad m
485+ => Char
486+ -> Char
487+ -> MuseParser m String
488+noteMarker' l r = try $ (\x y -> l:x:y ++ [r])
489+ <$ char l
487490 <*> oneOf "123456789"
488− <*> manyTill digit (char ']')
491+ <*> manyTill digit (char r)
492+
493+noteMarker :: PandocMonad m => MuseParser m String
494+noteMarker = noteMarker' '[' ']' <|> noteMarker' '{' '}'
489495
490496addNote :: PandocMonad m
491497 => String
@@ -797,7 +803,7 @@ footnote = try $ do
797803 return $ do
798804 notes <- asksF museNotes
799805 case M.lookup ref notes of
800− Nothing -> return $ B.str $ "[" ++ ref ++ "]"
806+ Nothing -> return $ B.str $ ref
801807 Just (_pos, contents) -> do
802808 st <- askF
803809 let contents' = runF contents st { museNotes = M.delete ref (museNotes st) }