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

incomplete support for record types in the abstract syntax

Browse Source
This commit is contained in:
krasimir
2009-03-16 14:41:49 +00:00
parent a2c682cf0e
commit 9cae779ac5
5 changed files with 54 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/GF/Grammar/Unify.hs
View File

@@ -65,6 +65,7 @@ unify e1 e2 g =
(App c a, App d b) -> case unify c d g of
Ok g1 -> unify a b g1
_ -> prtBad "fail unify" e1
(RecType xs,RecType ys) | xs == ys -> return g
_ -> prtBad "fail unify" e1
extend :: Unifier -> MetaSymb -> Term -> Err Unifier