@@ -125,7 +125,6 @@ blockToTextile _ HorizontalRule = return "<hr />\n"
125blockToTextile opts (Header level (ident,classes,keyvals) inlines) = do
125blockToTextile opts (Header level (ident,classes,keyvals) inlines) = do
126 contents <- inlineListToTextile opts inlines
126 contents <- inlineListToTextile opts inlines
127 let identAttr = if null ident then "" else ('#':ident)
127 let identAttr = if null ident then "" else ('#':ident)
128− let classAttr = unwords classes
129 let attribs = if null identAttr && null classes
128 let attribs = if null identAttr && null classes
131 else "(" ++ unwords classes ++ identAttr ++ ")"
130 else "(" ++ unwords classes ++ identAttr ++ ")"