From d5e3e8f649b983795f871792fc91d5be19e5c329 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Sat, 3 May 2025 07:32:06 +0200 Subject: [PATCH] whitespace --- 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 26ff0a277..281d30c6b 100644 --- a/src/compiler/api/GF/Compile/Compute/Concrete2.hs +++ b/src/compiler/api/GF/Compile/Compute/Concrete2.hs @@ -548,7 +548,7 @@ patternMatch g s v0 ((env0,ps,args0,t):eqs) = match env0 ps eqs args0 match' env p ps eqs arg args = case (p,arg) of (p, VMeta i vs) -> VSusp i (\v -> match' env p ps eqs (apply g v vs) args) [] - (p, VGen i vs) -> v0 + (p, VGen i vs) -> v0 (p, VSusp i k vs) -> VSusp i (\v -> match' env p ps eqs (apply g (k v) vs) args) [] (p, VFV s vs) -> VFV s (mapVariants (\arg -> match' env p ps eqs arg args) vs) (PP q qs, VApp c r vs)