diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-08 03:40:22 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-08 03:40:22 +0000 |
| commit | 608b22e9ddc93d7ef0443822dd2fefc48a24bbd6 (patch) | |
| tree | b256478e00f172096c637de35b178e2f8358a81b /src/Text/Pandoc/Writers/HTML.hs | |
| parent | 5b68993a3ed0bbf862b06e1f25c28b86b35e99d4 (diff) | |
| download | pandoc-608b22e9ddc93d7ef0443822dd2fefc48a24bbd6.tar.gz | |
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
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |