From c8dcc103253cad1a975cb95b2ca9bbf7274e88aa Mon Sep 17 00:00:00 2001 From: krangelov Date: Thu, 16 Dec 2021 14:00:25 +0100 Subject: [PATCH] another fix for cc --- src/compiler/GF/Compile/Compute/Concrete.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/GF/Compile/Compute/Concrete.hs b/src/compiler/GF/Compile/Compute/Concrete.hs index e2d49c710..bea889360 100644 --- a/src/compiler/GF/Compile/Compute/Concrete.hs +++ b/src/compiler/GF/Compile/Compute/Concrete.hs @@ -297,7 +297,7 @@ update lbl v (a@(lbl',_):as) | otherwise = a : update lbl v as -patternMatch v0 [] = fail "No matching pattern found" +patternMatch v0 [] = return v0 patternMatch v0 ((env0,ps,args0,t):eqs) = match env0 ps eqs args0 where match env [] eqs args = eval env t args