From 6cc162e83c325ca25e8eb0c63fcfc313f354c97b Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Sat, 26 Jan 2008 16:46:46 +0000
Subject: [PATCH] GFCCRaw printing: no space in App with no arguments.

---
 src/GF/GFCC/Raw/PrintGFCCRaw.hs | 1 +
 1 file changed, 1 insertion(+)

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