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

bugfix in the conversion of parameters to numbers

Browse Source
This commit is contained in:
krangelov
2021-12-14 19:08:01 +01:00
parent e2b6774bd3
commit 14feb56140
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -192,7 +192,7 @@ param2int (VR as) (RecType lbls) = compute lbls
param2int (VApp q tnks) ty = do param2int (VApp q tnks) ty = do
(r , ctxt,cnt ) <- getIdxCnt q (r , ctxt,cnt ) <- getIdxCnt q
(r',rs', cnt') <- compute ctxt tnks (r',rs', cnt') <- compute ctxt tnks
return (r+r',rs',cnt*cnt') return (r+r',rs',cnt)
where where
getIdxCnt q = do getIdxCnt q = do
(_,ResValue (L _ ty) idx) <- getInfo q (_,ResValue (L _ ty) idx) <- getInfo q