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
|
||||
try (string "{-|")
|
||||
contents <- closeComment
|
||||
return $ dropWhile (==' ') (init (init contents))
|
||||
let reversed = dropWhile (`elem` " \n\r") . drop 2 $ reverse contents
|
||||
return $ dropWhile (==' ') (reverse reversed)
|
||||
|
||||
moduleDocs = do
|
||||
(names,exports) <- anyThen moduleDef
|
||||
|
|
Loading…
Reference in a new issue