@@ -855,13 +855,12 @@ inlineToHtml opts inline =
855855 (Note contents)
856856 | writerIgnoreNotes opts -> return mempty
857857 | otherwise -> do
858− st <- get
859− let notes = stNotes st
858+ notes <- gets stNotes
860859 let number = (length notes) + 1
861860 let ref = show number
862861 htmlContents <- blockListToNote opts ref contents
863862 -- push contents onto front of notes
864− put $ st {stNotes = (htmlContents:notes)}
863+ modify $ \st -> st {stNotes = (htmlContents:notes)}
865864 let revealSlash = ['/' | writerSlideVariant opts
866865 == RevealJsSlides]
867866 let link = H.a ! A.href (toValue $ "#" ++