@@ -381,11 +381,7 @@ docComment :: IParser String
381docComment =
381docComment =
382 do try (string "{-|")
382 do try (string "{-|")
383 contents <- closeComment
383 contents <- closeComment
384−
384+ return (init (init contents))
386− dropWhile (`elem` " \n\r") . drop 2 $ reverse contents
388− return $ dropWhile (==' ') (reverse reversed)
391multiComment :: IParser String
387multiComment :: IParser String