GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -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 10a9e25ceb
commit f52c19d4da
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 prGrammar (Grm xs) = prRExpList xs
prRExp :: RExp -> ShowS prRExp :: RExp -> ShowS
prRExp (App x []) = showChar '(' . prCId x . showChar ')'
prRExp (App x xs) = showChar '(' . prCId x . showChar ' ' prRExp (App x xs) = showChar '(' . prCId x . showChar ' '
. prRExpList xs . showChar ')' . prRExpList xs . showChar ')'
prRExp (AId x) = prCId x prRExp (AId x) = prCId x