From c840a299c650d012ee8f1f292a3f54de7250bfc0 Mon Sep 17 00:00:00 2001
From: Frederick Pringle <frederick.pringle@fpringle.com>
Date: Thu, 14 Aug 2025 20:37:58 +0200
Subject: [PATCH] Add `Eq` and `Ord` instances for `TableIdentifier`

---
 src/Opaleye/Internal/PrimQuery.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Opaleye/Internal/PrimQuery.hs b/src/Opaleye/Internal/PrimQuery.hs
index d4037ba1..404ee22e 100644
--- a/src/Opaleye/Internal/PrimQuery.hs
+++ b/src/Opaleye/Internal/PrimQuery.hs
@@ -29,7 +29,7 @@ data SemijoinType = Semi | Anti deriving Show
 data TableIdentifier = TableIdentifier
   { tiSchemaName :: Maybe String
   , tiTableName  :: String
-  } deriving Show
+  } deriving (Show, Eq, Ord)
 
 tiToSqlTable :: TableIdentifier -> HSql.SqlTable
 tiToSqlTable ti = HSql.SqlTable { HSql.sqlTableSchemaName = tiSchemaName ti