github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-14 17:31:48 +03:00
Code Issues Projects Releases Wiki Activity

Use a lazy pattern match in evalTerm.

Browse Source
This commit is contained in:
Rob Rix 2018-12-10 12:07:20 -05:00
parent 2599cfa60d
commit 7688f05e7f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Semantic/Analysis.hs
View File

@ -145,4 +145,4 @@ evalTerm :: ( Carrier sig m
)
=> Open (term -> Evaluator term address value m value)
-> term -> Evaluator term address value m value
evalTerm perTerm = fst (fix (\ (ev, re) -> (perTerm (eval ev re . project), ref ev re . project)))
evalTerm perTerm = fst (fix (\ ~(ev, re) -> (perTerm (eval ev re . project), ref ev re . project)))