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