yogsototh/elm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Trim trailing whitespace

Browse source
This commit is contained in:
Evan Czaplicki 2013-09-09 15:58:43 -07:00
parent 964250c3c2
commit 281e8a208d
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
compiler/Docs.hs
View file

@ -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