msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

No spaces after newlines in JavaScript pretty-printer.

Browse Source
This commit is contained in:
bringert
2007-01-23 16:31:44 +00:00
parent 02c5dbd04a
commit feef66421e
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/JavaScript/PrintJS.hs
View File

@@ -26,10 +26,10 @@ render d = rend 0 (map ($ "") $ d []) "" where
space t = showString t . (\s -> if null s then "" else (' ':s)) space t = showString t . (\s -> if null s then "" else (' ':s))
spaceAfter :: String -> Bool spaceAfter :: String -> Bool
spaceAfter = (`notElem` [".","(","["]) spaceAfter = (`notElem` [".","(","[","\n"])
spaceBefore :: String -> Bool spaceBefore :: String -> Bool
spaceBefore = (`notElem` [",",".",":",";","(",")","[","]","{","}"]) spaceBefore = (`notElem` [",",".",":",";","(",")","[","]","{","}","\n"])
parenth :: Doc -> Doc parenth :: Doc -> Doc
parenth ss = doc (showChar '(') . ss . doc (showChar ')') parenth ss = doc (showChar '(') . ss . doc (showChar ')')