diff options
| author | bjorn <bjorn@bringert.net> | 2008-01-26 16:46:46 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-01-26 16:46:46 +0000 |
| commit | f52c19d4da74205e3b0bb077922a9e4f21ce0049 (patch) | |
| tree | f5b719dfab56561f3237c356bb053e8f9f7d6d52 /src | |
| parent | 10a9e25ceb590eacd1ea8a56950329ef3057cc73 (diff) | |
GFCCRaw printing: no space in App with no arguments.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/GFCC/Raw/PrintGFCCRaw.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/GFCC/Raw/PrintGFCCRaw.hs b/src/GF/GFCC/Raw/PrintGFCCRaw.hs index 1b937e429..d1041e380 100644 --- a/src/GF/GFCC/Raw/PrintGFCCRaw.hs +++ b/src/GF/GFCC/Raw/PrintGFCCRaw.hs @@ -11,6 +11,7 @@ prGrammar :: Grammar -> ShowS prGrammar (Grm xs) = prRExpList xs prRExp :: RExp -> ShowS +prRExp (App x []) = showChar '(' . prCId x . showChar ')' prRExp (App x xs) = showChar '(' . prCId x . showChar ' ' . prRExpList xs . showChar ')' prRExp (AId x) = prCId x |