diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-09-21 12:00:31 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-09-21 12:00:31 +0000 |
| commit | 0260265de0cf1e05c88e6475531b589d5302ebaf (patch) | |
| tree | feccef4ca57a277a9aa2cefbea5c514732cbdb3d /src/GF/Infra/CompactPrint.hs | |
| parent | 73ef8309abfb721c89171d8c2b9a122ec94b63f6 (diff) | |
fixed reading argvars from gfc in gf-to-gfcc
Diffstat (limited to 'src/GF/Infra/CompactPrint.hs')
| -rw-r--r-- | src/GF/Infra/CompactPrint.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Infra/CompactPrint.hs b/src/GF/Infra/CompactPrint.hs index eb8be2292..56aaf4d64 100644 --- a/src/GF/Infra/CompactPrint.hs +++ b/src/GF/Infra/CompactPrint.hs @@ -1,11 +1,11 @@ module GF.Infra.CompactPrint where import Data.Char -compactPrint = concat . map spaceIf . words +compactPrint = tail . concat . map spaceIf . words spaceIf w = case w of _ | keyword w -> "\n" ++ w c:cs | isAlpha c || isDigit c -> " " ++ w _ -> w -keyword w = elem w ["cat","fun","lin","lincat","oper","param"] +keyword w = elem w ["cat","fun","lin","lincat","lindef","oper","param"] |