msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

another fix for cc

Browse Source
This commit is contained in:
krangelov
2021-12-16 14:00:25 +01:00
parent 4ed287a809
commit c8dcc10325
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Compile/Compute/Concrete.hs
View File

@@ -297,7 +297,7 @@ update lbl v (a@(lbl',_):as)
| otherwise = a : update lbl v 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 patternMatch v0 ((env0,ps,args0,t):eqs) = match env0 ps eqs args0
where where
match env [] eqs args = eval env t args match env [] eqs args = eval env t args