From 160999a7d7c1f2d2e841fe1f37cd48039e6b0d43 Mon Sep 17 00:00:00 2001 From: Tissevert Date: Sun, 23 Feb 2020 22:17:09 +0100 Subject: [PATCH] =?UTF-8?q?A=20small=20renaming=20for=20more=20clarity=20a?= =?UTF-8?q?nd=20because=20I=20thought=20=C2=ABupdate=C2=BB=20could=20be=20?= =?UTF-8?q?needed=20for=20a=20function=20name=20but=20after=20all=20maybe?= =?UTF-8?q?=20not=20but=20it's=20still=20better=20that=20way?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/PDF/Layer.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/PDF/Layer.hs b/src/PDF/Layer.hs index 97e0f0b..0e6a696 100644 --- a/src/PDF/Layer.hs +++ b/src/PDF/Layer.hs @@ -65,13 +65,13 @@ unify = foldl complete emptyLayer } unifyDocStructure :: Structure -> Structure -> Structure -unifyDocStructure update original = Structure { - xRef = Map.union (xRef update) (xRef original) - , trailer = Map.union (trailer update) (trailer original) +unifyDocStructure new old = Structure { + xRef = Map.union (xRef new) (xRef old) + , trailer = Map.union (trailer new) (trailer old) } unifyOccurrences :: IndexedObjects -> [Occurrence] -> [Occurrence] -> [Occurrence] -unifyOccurrences objects update = foldr addOlder update +unifyOccurrences objects new = foldr addOlder new where addOlder occurrence@(Comment _) existing = occurrence : existing addOlder occurrence@(Indirect indirect) existing =