From 36a7da75d1772156760bdff1f171f8f1f5d7a3c9 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 21 Jan 2025 23:36:09 +0100
Subject: Report ambiguous type/kind uvars, don't crash

---
 src/HSVIS/Diagnostic.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/HSVIS/Diagnostic.hs')

diff --git a/src/HSVIS/Diagnostic.hs b/src/HSVIS/Diagnostic.hs
index 116e4cd..2794461 100644
--- a/src/HSVIS/Diagnostic.hs
+++ b/src/HSVIS/Diagnostic.hs
@@ -16,7 +16,7 @@ instance Pretty Pos where
 
 -- | Inclusive-exclusive range of positions in a file.
 data Range = Range Pos Pos
-  deriving (Show)
+  deriving (Show, Eq, Ord)
 
 instance Semigroup Range where
   Range a b <> Range c d = Range (min a c) (max b d)
-- 
cgit v1.2.3-70-g09d2