diff --git a/src/PDF/Layer.hs b/src/PDF/Layer.hs index e0e3a31..cbdf137 100644 --- a/src/PDF/Layer.hs +++ b/src/PDF/Layer.hs @@ -89,7 +89,7 @@ unify = foldl complete emptyLayer docStructure = unifyDocStructure (docStructure tmpLayer) (docStructure older) , objects = mergedObjects - , occurrences = + , occurrences = unifyOccurrences mergedObjects (occurrences tmpLayer) (occurrences older) }