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

testgf3 in progress; fixed VP type in ExtraEng

Browse Source
This commit is contained in:
aarne
2008-02-22 14:16:33 +00:00
parent 4e3d240d2d
commit 9e6064709f
6 changed files with 17 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/GF/Devel/Grammar/Macros.hs
+3
View File
@@ -259,6 +259,9 @@ 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')
V ty vs ->
do ty' <- co ty
vs' <- mapM co vs