diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-03-06 21:27:14 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-03-06 21:27:14 +0000 |
| commit | 27508654c01c5ebad3c495629ccbd49c067429ab (patch) | |
| tree | 440e4ec729664e71a29e8d33d8fdcb7af3757a15 /src/GF/Infra/CompactPrint.hs | |
| parent | fe863958533cd905939241e6fa50af439058cf5a (diff) | |
option -mac to vt command (uses open with ps)
Diffstat (limited to 'src/GF/Infra/CompactPrint.hs')
| -rw-r--r-- | src/GF/Infra/CompactPrint.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Infra/CompactPrint.hs b/src/GF/Infra/CompactPrint.hs index 7b37679ee..486c9e183 100644 --- a/src/GF/Infra/CompactPrint.hs +++ b/src/GF/Infra/CompactPrint.hs @@ -12,7 +12,8 @@ dps = dropWhile isSpace spaceIf pre post w = case w of _ | pre w -> "\n" ++ w _ | post w -> w ++ "\n" - c:cs | isAlpha c || isDigit c -> " " ++ w + c:_ | isAlpha c || isDigit c -> " " ++ w + '_':_ -> " " ++ w _ -> w keywordGF w = elem w ["cat","fun","lin","lincat","lindef","oper","param"] |