@@ -73,8 +73,8 @@ metaToMan options (Meta title authors date) = do
7373 let (cmdName, rest) = break (== ' ') $ render titleText
7474 let (title', section) = case reverse cmdName of
7575 (')':d:'(':xs) | d `elem` ['0'..'9'] ->
76− (text (reverse xs), text [d])
77− xs -> (text (reverse xs), empty)
76+ (text (reverse xs), char d)
77+ xs -> (text (reverse xs), doubleQuotes empty)
7878 let extras = map (doubleQuotes . text . removeLeadingTrailingSpace) $
7979 splitBy '|' rest
8080 let head = (text ".TH") <+> title' <+> section <+>