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

don't typecheck record fields that are going to be discarded

Browse Source
This commit is contained in:
Krasimir Angelov
2025-05-21 13:56:19 +02:00
parent fd27a2ebd3
commit 8b93f80c52
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/api/GF/Compile/TypeCheck/ConcreteNew.hs
+1 -3
View File
@@ -654,9 +654,7 @@ checkRecFields scope c ((l,t):lts) ltys =
lttys <- checkRecFields scope c2 lts ltys lttys <- checkRecFields scope c2 lts ltys
return (ltty : lttys) return (ltty : lttys)
(Nothing,ltys) -> do evalWarn ("Discarded field:" <+> l) (Nothing,ltys) -> do evalWarn ("Discarded field:" <+> l)
let (c1,c2) = split c lttys <- checkRecFields scope c lts ltys
ltty <- tcRecField scope c1 l t Nothing
lttys <- checkRecFields scope c2 lts ltys
return lttys -- ignore the field return lttys -- ignore the field
where where
takeIt l1 [] = (Nothing, []) takeIt l1 [] = (Nothing, [])