@@ -65,7 +65,8 @@ docComment :: IParser String
6565docComment = do
6666 try (string "{-|")
6767 contents <- closeComment
68− return $ dropWhile (==' ') (init (init contents))
68+ let reversed = dropWhile (`elem` " \n\r") . drop 2 $ reverse contents
69+ return $ dropWhile (==' ') (reverse reversed)
6970
7071moduleDocs = do
7172 (names,exports) <- anyThen moduleDef