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

more precise subtype/supertype for nondependent functions

Browse Source
This commit is contained in:
Krasimir Angelov
2025-05-21 14:35:55 +02:00
parent 548e4c8549
commit 054ebf066a
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/api/GF/Compile/TypeCheck/ConcreteNew.hs
+10 -4
View File
@@ -887,6 +887,11 @@ subtype scope (Just (VTable a1 r1)) (VTable a2 r2) = do
a <- supertype scope (Just a1) a2
r <- subtype scope (Just r1) r2
return (VTable a r)
subtype scope (Just (VProd Explicit x a1 r1)) (VProd Explicit y a2 r2)
| x == identW && y == identW = do
a <- supertype scope (Just a1) a2
r <- subtype scope (Just r1) r2
return (VProd Explicit identW a r)
subtype scope Nothing ty = return ty
subtype scope (Just ctr) ty = do
unify scope ctr ty
@@ -914,10 +919,11 @@ supertype scope (Just (VTable a1 r1)) (VTable a2 r2) = do
a <- subtype scope (Just a1) a2
r <- supertype scope (Just r1) r2
return (VTable a r)
supertype scope (Just (VProd _ _ a1 r1)) (VProd _ _ a2 r2) = do
a <- subtype scope (Just a1) a2
r <- supertype scope (Just r1) r2
return (VProd Explicit identW a r)
supertype scope (Just (VProd Explicit x a1 r1)) (VProd Explicit y a2 r2)
| x == identW && y == identW = do
a <- subtype scope (Just a1) a2
r <- supertype scope (Just r1) r2
return (VProd Explicit identW a r)
supertype scope Nothing ty = return ty
supertype scope (Just ctr) ty = do
unify scope ctr ty