diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-23 16:31:44 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-23 16:31:44 +0000 |
| commit | feef66421ea9c6e2342ac7c25b09810130641b16 (patch) | |
| tree | 62f4edb90bc425c59b1a9b09e4a1d8a8f164ac25 /src/GF/JavaScript | |
| parent | 02c5dbd04af59187e197a9a2f98cce90e85c4cb2 (diff) | |
No spaces after newlines in JavaScript pretty-printer.
Diffstat (limited to 'src/GF/JavaScript')
| -rw-r--r-- | src/GF/JavaScript/PrintJS.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/JavaScript/PrintJS.hs b/src/GF/JavaScript/PrintJS.hs index f901a62df..9f85a58e9 100644 --- a/src/GF/JavaScript/PrintJS.hs +++ b/src/GF/JavaScript/PrintJS.hs @@ -26,10 +26,10 @@ render d = rend 0 (map ($ "") $ d []) "" where space t = showString t . (\s -> if null s then "" else (' ':s)) spaceAfter :: String -> Bool -spaceAfter = (`notElem` [".","(","["]) +spaceAfter = (`notElem` [".","(","[","\n"]) spaceBefore :: String -> Bool -spaceBefore = (`notElem` [",",".",":",";","(",")","[","]","{","}"]) +spaceBefore = (`notElem` [",",".",":",";","(",")","[","]","{","}","\n"]) parenth :: Doc -> Doc parenth ss = doc (showChar '(') . ss . doc (showChar ')') |