GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-06-30 19:18:33 -06:00
Code Issues Packages Projects Releases Wiki Activity

started a directory of grammars testing testgf3 features

Browse Source
This commit is contained in:
aarne
2008-02-22 15:17:50 +00:00
parent 9e6064709f
commit 2faba90119
7 changed files with 25 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/GF/Devel/Grammar/Macros.hs
+4 -3
View File
@@ -259,9 +259,10 @@ composOp co trm = case trm of
Eqs cc ->
do cc' <- mapPairListM (co . snd) cc
return (Eqs cc')
EParam cos ->
do cos' <- mapPairListM (mapPairListM (co . snd) . snd) cos
return (EParam cos')
EParam ty cos ->
do ty' <- co ty
cos' <- mapPairListM (mapPairListM (co . snd) . snd) cos
return (EParam ty' cos')
V ty vs ->
do ty' <- co ty
vs' <- mapM co vs