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

Add test case for selection using records (fails)

Browse Source
This commit is contained in:
John J. Camilleri
2021-02-10 13:55:38 +01:00
parent d5f68970b9
commit a12f58e7b0
5 changed files with 51 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/GrammarToLPGF.hs
View File

@@ -103,7 +103,7 @@ mkCanon2lpgf opts gr am = do
return $ L.LFTuple ts
C.VariantValue [] -> return L.LFEmpty
C.VariantValue (vr:_) -> val2lin vr -- TODO variants not supported, just pick first
C.VariantValue (vr:_) -> val2lin vr -- NOTE variants not supported, just pick first
C.VarValue (C.VarValueId (C.Unqual v)) -> do
ix <- eitherElemIndex (C.VarId v) varIds