@@ -92,7 +92,7 @@ notesToMan opts notes =
92 if null notes
92 if null notes
93 then return empty
93 then return empty
94 else mapM (\(num, note) -> noteToMan opts num note) (zip [1..] notes) >>=
94 else mapM (\(num, note) -> noteToMan opts num note) (zip [1..] notes) >>=
95− (return . (text ".SH NOTES\n" <>) . vcat)
95+ (return . (text ".SH NOTES" $$) . vcat)
97-- | Return man representation of a note.
97-- | Return man representation of a note.
98noteToMan :: WriterOptions -> Int -> [Block] -> State WriterState Doc
98noteToMan :: WriterOptions -> Int -> [Block] -> State WriterState Doc