GFCCRaw printing: no space in App with no arguments.

2008-01-26 16:46:46 +00:00
parent 10a9e25ceb
commit f52c19d4da
1 changed files with 1 additions and 0 deletions
--- 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