From e722916728fc85d2313dcc46a1efca28373577cb Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Thu, 5 Sep 2024 18:00:27 +0200 Subject: [PATCH] pattern matching with PChar --- src/compiler/api/GF/Compile/Compute/Concrete.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/compiler/api/GF/Compile/Compute/Concrete.hs b/src/compiler/api/GF/Compile/Compute/Concrete.hs index 93419a540..7d7d65c7a 100644 --- a/src/compiler/api/GF/Compile/Compute/Concrete.hs +++ b/src/compiler/api/GF/Compile/Compute/Concrete.hs @@ -389,6 +389,7 @@ patternMatch v0 ((env0,ps,args0,t):eqs) = match env0 ps eqs args0 patternMatch v0 eqs RunTime -> return v0 NonExist-> patternMatch v0 eqs + (PChar, VStr [c]) -> match env ps eqs args (PChars cs, VStr [c]) | elem c cs -> match env ps eqs args (PInt n, VInt m)