diff options
| author | ickc <ickc@users.noreply.github.com> | 2016-05-09 19:24:40 -0700 |
|---|---|---|
| committer | ickc <ickc@users.noreply.github.com> | 2016-05-09 19:24:40 -0700 |
| commit | 0ae60a91535a8f55f3061f36fdb3a54f6ddda85d (patch) | |
| tree | f0c74ae411967ed5f67bd8b0bdf175ee5ca964ab /src/Text/Pandoc/Writers/HTML.hs | |
| parent | 846fa8704618e7e544313f5b3b627ccb6e65b550 (diff) | |
| parent | f7601297f0ff184a59efdc3ea279137fc6012eef (diff) | |
| download | pandoc-0ae60a91535a8f55f3061f36fdb3a54f6ddda85d.tar.gz | |
Merge pull request #1 from jgm/master
Merge from jgm's master
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index c5b6a6db2..d8b8384e7 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -855,13 +855,12 @@ inlineToHtml opts inline = (Note contents) | writerIgnoreNotes opts -> return mempty | otherwise -> do - st <- get - let notes = stNotes st + notes <- gets stNotes let number = (length notes) + 1 let ref = show number htmlContents <- blockListToNote opts ref contents -- push contents onto front of notes - put $ st {stNotes = (htmlContents:notes)} + modify $ \st -> st {stNotes = (htmlContents:notes)} let revealSlash = ['/' | writerSlideVariant opts == RevealJsSlides] let link = H.a ! A.href (toValue $ "#" ++ |