From a7c0be2fd5c70e15bb79bf77fe4af2db3d02ff51 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Fri, 14 Mar 2025 07:38:33 +0000 Subject: [PATCH] fix typo --- src/compiler/api/GF/Compile/Compute/Concrete2.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/api/GF/Compile/Compute/Concrete2.hs b/src/compiler/api/GF/Compile/Compute/Concrete2.hs index f20ae2c41..a0539c916 100644 --- a/src/compiler/api/GF/Compile/Compute/Concrete2.hs +++ b/src/compiler/api/GF/Compile/Compute/Concrete2.hs @@ -812,7 +812,7 @@ value2termM flat xs (VReset ctl v) = do return (App (App (QC (mn,identS ("Conj"++cat))) (QC (mn,conj))) t) where listify mn cat [t1,t2] = do return (App (App (QC (mn,identS ("Base"++cat))) t1) t2) - listify mn cat (t1:ts) = do t2 <- listify mn id ts + listify mn cat (t1:ts) = do t2 <- listify mn cat ts return (App (App (QC (mn,identS ("Cons"++cat))) t1) t2) value2termM flat xs (VError msg) = evalError msg value2termM flat xs (VCRecType lbls) = do