github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 14:11:33 +03:00
Code Issues Projects Releases Wiki Activity

Fewer parens.

Browse Source
This commit is contained in:
Rob Rix 2015-12-14 19:12:03 -05:00
parent 64b011e388
commit b0739e53d1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Interpreter.hs
View File

@ -54,8 +54,8 @@ run comparable (Free (Recursive (annotation1 :< a) (annotation2 :< b) f)) = run
run comparable (Free (ByKey a b f)) = run comparable $ f byKey where run comparable (Free (ByKey a b f)) = run comparable $ f byKey where
byKey = Map.fromList $ toKeyValue <$> List.union aKeys bKeys byKey = Map.fromList $ toKeyValue <$> List.union aKeys bKeys
toKeyValue key | List.elem key deleted = (key, Pure $ Delete (a ! key)) toKeyValue key | List.elem key deleted = (key, Pure . Delete $ a ! key)
toKeyValue key | List.elem key inserted = (key, Pure $ Delete (b ! key)) toKeyValue key | List.elem key inserted = (key, Pure . Delete $ b ! key)
toKeyValue key = (key, interpret comparable (a ! key) (b ! key)) toKeyValue key = (key, interpret comparable (a ! key) (b ! key))
aKeys = Map.keys a aKeys = Map.keys a
bKeys = Map.keys b bKeys = Map.keys b