From 608b22e9ddc93d7ef0443822dd2fefc48a24bbd6 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 8 Jul 2007 03:40:22 +0000 Subject: HTML writer: Slight change in code for generating unique identifiers. The numbers used after duplicate identifiers are now separated from them by a hyphen: Duplicate-1 rather than Duplicate1. git-svn-id: https://pandoc.googlecode.com/svn/trunk@648 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/HTML.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc/Writers/HTML.hs') diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index 0b5908795..75a1dccb6 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -198,7 +198,7 @@ uniqueIdentifiers ls = let addIdentifier (nonuniqueIds, uniqueIds) l = let new = inlineListToIdentifier l matches = length $ filter (== new) nonuniqueIds - new' = new ++ if matches > 0 then show matches else "" + new' = new ++ if matches > 0 then ("-" ++ show matches) else "" in (new:nonuniqueIds, new':uniqueIds) in reverse $ snd (foldl addIdentifier ([],[]) $ ls) -- cgit v1.2.3