@@ -114,7 +114,8 @@ elementToDocbook opts lvl (Sec _ _num (id',_,_) title elements) =
114 n | n == 0 -> "chapter"
114 n | n == 0 -> "chapter"
115 | n >= 1 && n <= 5 -> "sect" ++ show n
115 | n >= 1 && n <= 5 -> "sect" ++ show n
116 | otherwise -> "simplesect"
116 | otherwise -> "simplesect"
117− in inTags True tag [("id", writerIdentifierPrefix opts ++ id')] $
117+ in inTags True tag [("id", writerIdentifierPrefix opts ++ id') |
118 inTagsSimple "title" (inlinesToDocbook opts title) $$
119 inTagsSimple "title" (inlinesToDocbook opts title) $$
119 vcat (map (elementToDocbook opts (lvl + 1)) elements')
120 vcat (map (elementToDocbook opts (lvl + 1)) elements')