diff options
Diffstat (limited to 'src/GF')
| -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 |