From fbe7dbf3b1efe3615f87f0327871ebfd80f1e050 Mon Sep 17 00:00:00 2001
From: tomsmeding <tom.smeding@gmail.com>
Date: Sat, 30 Nov 2019 10:15:28 +0100
Subject: Optimise some more

---
 Intermediate.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Intermediate.hs')

diff --git a/Intermediate.hs b/Intermediate.hs
index 6f4c360..b0f12b9 100644
--- a/Intermediate.hs
+++ b/Intermediate.hs
@@ -26,7 +26,7 @@ data Ref
     | RTemp Int
     | RSClo Name  -- static closure object of a function
     | RNone
-  deriving Eq
+  deriving (Eq, Ord)
 
 data InsCode
     = IAssign Ref
-- 
cgit v1.2.3-70-g09d2