Trim trailing whitespace
This commit is contained in:
parent
964250c3c2
commit
281e8a208d
1 changed files with 2 additions and 1 deletions
|
@ -65,7 +65,8 @@ docComment :: IParser String
|
||||||
docComment = do
|
docComment = do
|
||||||
try (string "{-|")
|
try (string "{-|")
|
||||||
contents <- closeComment
|
contents <- closeComment
|
||||||
return $ dropWhile (==' ') (init (init contents))
|
let reversed = dropWhile (`elem` " \n\r") . drop 2 $ reverse contents
|
||||||
|
return $ dropWhile (==' ') (reverse reversed)
|
||||||
|
|
||||||
moduleDocs = do
|
moduleDocs = do
|
||||||
(names,exports) <- anyThen moduleDef
|
(names,exports) <- anyThen moduleDef
|
||||||
|
|
Loading…
Reference in a new issue