From 97e6cd1d48840800913c2140cfe14fa8431e05c0 Mon Sep 17 00:00:00 2001
From: Mirek Kratochvil <exa.exa@gmail.com>
Date: Sat, 18 Feb 2023 21:30:35 +0100
Subject: useful stuff

---
 app/Code.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'app/Code.hs')

diff --git a/app/Code.hs b/app/Code.hs
index f2a3856..709b309 100644
--- a/app/Code.hs
+++ b/app/Code.hs
@@ -81,7 +81,7 @@ data Dereferenced
   = FreeRef Int
   | BoundRef Int Datum
   | NoRef
-  deriving (Show)
+  deriving (Show, Eq)
 
 -- TRICKY: HeapRefs alone must not form a cycle other than the FreeRef case.
 derefHeap :: Heap -> Int -> Dereferenced
-- 
cgit v1.2.3