From 14feb5614019a9d8fccadc1ad2e10ef0aade3122 Mon Sep 17 00:00:00 2001
From: krangelov <kr.angelov@gmail.com>
Date: Tue, 14 Dec 2021 19:08:01 +0100
Subject: [PATCH] bugfix in the conversion of parameters to numbers

---
 src/compiler/GF/Compile/GeneratePMCFG.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs
index 6bb57f1b6..7803d0cd7 100644
--- a/src/compiler/GF/Compile/GeneratePMCFG.hs
+++ b/src/compiler/GF/Compile/GeneratePMCFG.hs
@@ -192,7 +192,7 @@ param2int (VR as) (RecType lbls) = compute lbls
 param2int (VApp q tnks) ty = do
   (r ,    ctxt,cnt ) <- getIdxCnt q
   (r',rs',     cnt') <- compute ctxt tnks
-  return (r+r',rs',cnt*cnt')
+  return (r+r',rs',cnt)
   where
     getIdxCnt q = do
       (_,ResValue (L _ ty) idx) <- getInfo q