GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

GFCCRaw printing: no space in App with no arguments.

Browse Source
This commit is contained in:
bjorn
2008-01-26 16:46:46 +00:00
parent 590f095492
commit 6cc162e83c
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/GF/GFCC/Raw/PrintGFCCRaw.hs
View File

@@ -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