GitHub/gf-core
1
0 Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-11-04 11:15:27 -07:00
Code Issues Packages Projects Releases Wiki Activity

missed VStr -> string2value

Browse Source
This commit is contained in:
krangelov committed 2021-10-05 13:38:00 +02:00
1 parent 51954c60ea
commit 93c2f47752
1 file changed
+2 -2
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/GF/Compile/Compute/Concrete.hs
+2 -2
View File
@@ -153,9 +153,9 @@ evalPredef id [v1,v2]
evalPredef id [v] evalPredef id [v]
| id == cIsUpper= return (fmap toPBool (liftM (all isUpper) (value2string v))) | id == cIsUpper= return (fmap toPBool (liftM (all isUpper) (value2string v)))
evalPredef id [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] 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] evalPredef id [v1,v2]
| id == cEqStr = return (fmap toPBool (liftM2 (==) (value2string v1) (value2string v2))) | id == cEqStr = return (fmap toPBool (liftM2 (==) (value2string v1) (value2string v2)))
evalPredef id [v1,v2] evalPredef id [v1,v2]