From 93c2f477529d30d920d3d453196d299c779fc000 Mon Sep 17 00:00:00 2001 From: krangelov Date: Tue, 5 Oct 2021 13:38:00 +0200 Subject: [PATCH] missed VStr -> string2value --- src/compiler/GF/Compile/Compute/Concrete.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler/GF/Compile/Compute/Concrete.hs b/src/compiler/GF/Compile/Compute/Concrete.hs index 767d50272..c824cf797 100644 --- a/src/compiler/GF/Compile/Compute/Concrete.hs +++ b/src/compiler/GF/Compile/Compute/Concrete.hs @@ -153,9 +153,9 @@ evalPredef id [v1,v2] evalPredef id [v] | id == cIsUpper= return (fmap toPBool (liftM (all isUpper) (value2string v))) evalPredef id [v] - | id == cToUpper= return (fmap VStr (liftM (map toUpper) (value2string v))) + | id == cToUpper= return (fmap string2value (liftM (map toUpper) (value2string v))) evalPredef id [v] - | id == cToLower= return (fmap VStr (liftM (map toLower) (value2string v))) + | id == cToLower= return (fmap string2value (liftM (map toLower) (value2string v))) evalPredef id [v1,v2] | id == cEqStr = return (fmap toPBool (liftM2 (==) (value2string v1) (value2string v2))) evalPredef id [v1,v2]