From 5330e6342135789ade52165ecb31c20c0e98b67c Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 12 Feb 2013 20:13:23 -0800 Subject: Shared: Changed type of Element. Sec now includes a field for Attr rather than just String (the identifier). Note, this is an API change. --- src/Text/Pandoc/Writers/EPUB.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Writers/EPUB.hs') 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 -- cgit v1.2.3