another fix for cc

2021-12-16 14:00:25 +01:00
parent 4ed287a809
commit c8dcc10325
1 changed files with 1 additions and 1 deletions
--- 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