From cd4c28ca0c6feec6b6c2979863d6769a80a9839d Mon Sep 17 00:00:00 2001
From: Folkert <folkert@folkertdev.nl>
Date: Sat, 25 Apr 2020 21:12:49 +0200
Subject: [PATCH] fix failing tests

---
 compiler/uniq/src/sharing.rs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/compiler/uniq/src/sharing.rs b/compiler/uniq/src/sharing.rs
index 6d9aaa1826..e81a621c71 100644
--- a/compiler/uniq/src/sharing.rs
+++ b/compiler/uniq/src/sharing.rs
@@ -495,7 +495,13 @@ impl FieldAccess {
     }
 
     pub fn list_seen() -> Self {
-        Self::default()
+        use Mark::*;
+        use Usage::*;
+
+        let mut result = Self::default();
+        result.fields.insert(LIST_ELEM.into(), Simple(Seen));
+
+        result
     }
 
     pub fn list_update() -> Self {