diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-02-12 20:13:23 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-02-12 20:13:23 -0800 |
| commit | 5330e6342135789ade52165ecb31c20c0e98b67c (patch) | |
| tree | 4e1a646306a49f629f34e52c9184edeb4cc02d50 /src/Text/Pandoc/Writers/EPUB.hs | |
| parent | a49ecc9fe707d3dd2c68929f35c3b390ae5ae6e7 (diff) | |
Shared: Changed type of Element.
Sec now includes a field for Attr rather than just String
(the identifier).
Note, this is an API change.
Diffstat (limited to 'src/Text/Pandoc/Writers/EPUB.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index ea0e921cb..58a1308f2 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -230,7 +230,7 @@ writeEPUB opts doc@(Pandoc meta _) = do let navPointNode :: (Int -> String -> String -> [Element] -> Element) -> Shared.Element -> State Int Element - navPointNode formatter (Sec _ nums ident ils children) = do + navPointNode formatter (Sec _ nums (ident,classes,keyvals) ils children) = do n <- get modify (+1) let showNums :: [Int] -> String |