aboutsummaryrefslogtreecommitdiff
path: root/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-02-24 18:21:19 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2008-02-24 18:21:19 +0000
commit94dcbab55fd784bab227b73e006677417f3b0615 (patch)
treedca5606e0534938429ecf9eff6b62e77a439e377 /Text/Pandoc/Writers
parent839f77d81ecd742d6368f8b140eeccd37d8a80e7 (diff)
downloadpandoc-94dcbab55fd784bab227b73e006677417f3b0615.tar.gz
Modified disallowedInNode in Texinfo writer to correct list of disallowed characters.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1246 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Writers')
-rw-r--r--Text/Pandoc/Writers/Texinfo.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/Text/Pandoc/Writers/Texinfo.hs b/Text/Pandoc/Writers/Texinfo.hs
index a77b19d08..ac8778274 100644
--- a/Text/Pandoc/Writers/Texinfo.hs
+++ b/Text/Pandoc/Writers/Texinfo.hs
@@ -355,10 +355,8 @@ inlineForNode (Link lst _) = inlineListForNode lst
inlineForNode (Image lst _) = inlineListForNode lst
inlineForNode (Note _) = return empty
--- XXX not sure what the complete set of illegal characters is.
-disallowedInNode '.' = True
-disallowedInNode ',' = True
-disallowedInNode _ = False
+-- periods, commas, colons, and parentheses are disallowed in node names
+disallowedInNode c = c `elem` ".,:()"
-- | Convert inline element to Texinfo
inlineToTexinfo :: Inline -- ^ Inline to convert