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

Simplify the Copy case.

Browse Source
This commit is contained in:
Rob Rix 2017-09-10 17:43:35 +01:00
parent dbc79d8ab0
commit ebcaa3fb27
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Diff.hs
View File

@ -65,10 +65,7 @@ evalDiffR algebra = flip go mempty
evalDiffRM :: (Functor syntax, Reader (Env (Diff syntax ann, Eff fs a)) :< fs) => (DiffF syntax ann (Diff syntax ann, Eff fs a) -> Eff fs a) -> Diff syntax ann -> Eff fs a evalDiffRM :: (Functor syntax, Reader (Env (Diff syntax ann, Eff fs a)) :< fs) => (DiffF syntax ann (Diff syntax ann, Eff fs a) -> Eff fs a) -> Diff syntax ann -> Eff fs a
evalDiffRM algebra = go evalDiffRM algebra = go
where go = para $ \ diff -> case diff of where go = para $ \ diff -> case diff of
Copy bindings ann syntax -> do Copy bindings _ _ -> local (flip (foldr (uncurry envExtend)) bindings) (algebra diff)
env <- ask
let extended = foldr (uncurry envExtend) env bindings
local (const extended) $ algebra (Copy bindings ann syntax)
_ -> algebra diff _ -> algebra diff