pattern matching with PChar

GrammaticalFramework · Sep 5, 2024 · e722916 · e722916
1 parent 6c2a94d
commit e722916
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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)