@@ -120,7 +120,7 @@ inCmd cmd contents = char '@' <> text cmd <> braces contents
120120
121121-- | Convert Pandoc block element to Texinfo.
122122blockToTexinfo :: Block -- ^ Block to convert
123− -> State WriterState Doc
123+ -> State WriterState Doc
124124
125125blockToTexinfo Null = return empty
126126
@@ -195,9 +195,9 @@ blockToTexinfo HorizontalRule =
195195 -- XXX can't get the equivalent from LaTeX.hs to work
196196 return $ text "@iftex" $$
197197 text "@bigskip@hrule@bigskip" $$
198− text "@end iftex" $$
198+ text "@end iftex" $$
199199 text "@ifnottex" $$
200− text (take 72 $ repeat '-') $$
200+ text (take 72 $ repeat '-') $$
201201 text "@end ifnottex"
202202
203203blockToTexinfo (Header 0 _ lst) = do