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

Parens.

Browse Source
This commit is contained in:
Rob Rix 2017-09-10 17:47:07 +01:00
parent 606b89772e
commit 7020f5ffaa
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/Diff.hs
View File

@ -67,7 +67,7 @@ evalDiffR algebra = flip go mempty
Var var -> algebra (Var var) env
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 = para $ \ diff -> local (flip (foldr (uncurry envExtend)) (diffFBindings diff)) (algebra diff)
evalDiffRM algebra = para (\ diff -> local (flip (foldr (uncurry envExtend)) (diffFBindings diff)) (algebra diff))
diffSum :: (Foldable syntax, Functor syntax) => (forall a. Patch a -> Int) -> Diff syntax ann -> Int