@@ -120,7 +120,7 @@ inCmd cmd contents = char '@' <> text cmd <> braces contents
121-- | Convert Pandoc block element to Texinfo.
121-- | Convert Pandoc block element to Texinfo.
122blockToTexinfo :: Block -- ^ Block to convert
122blockToTexinfo :: Block -- ^ Block to convert
123− -> State WriterState Doc
123+ -> State WriterState Doc
125blockToTexinfo Null = return empty
125blockToTexinfo Null = return empty
@@ -195,9 +195,9 @@ blockToTexinfo HorizontalRule =
195 -- XXX can't get the equivalent from LaTeX.hs to work
195 -- XXX can't get the equivalent from LaTeX.hs to work
196 return $ text "@iftex" $$
196 return $ text "@iftex" $$
197 text "@bigskip@hrule@bigskip" $$
197 text "@bigskip@hrule@bigskip" $$
198− text "@end iftex" $$
198+ text "@end iftex" $$
199 text "@ifnottex" $$
199 text "@ifnottex" $$
200− text (take 72 $ repeat '-') $$
200+ text (take 72 $ repeat '-') $$
201 text "@end ifnottex"
201 text "@end ifnottex"
203blockToTexinfo (Header 0 _ lst) = do
203blockToTexinfo (Header 0 _ lst) = do