From 0908a4efd82e04c407d7d7fbdc8cd5367f2af17d Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 15 Dec 2015 12:42:50 -0500 Subject: [PATCH] Inserted elements are inserted. --- src/Interpreter.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Interpreter.hs b/src/Interpreter.hs index d38351f8d..649571a36 100644 --- a/src/Interpreter.hs +++ b/src/Interpreter.hs @@ -55,7 +55,7 @@ run comparable (Free (Recursive (annotation1 :< a) (annotation2 :< b) f)) = run run comparable (Free (ByKey a b f)) = run comparable $ f byKey where byKey = Map.fromList $ toKeyValue <$> List.union aKeys bKeys 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 . Insert $ b ! key) toKeyValue key = (key, interpret comparable (a ! key) (b ! key)) aKeys = Map.keys a bKeys = Map.keys b