Write some instances

obsidiansystems · Jul 17, 2023 · f60d4f9 · f60d4f9
1 parent e6839e0
commit f60d4f9
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/beam-migrate/Database/Beam/Haskell/Syntax.hs b/beam-migrate/Database/Beam/Haskell/Syntax.hs
@@ -1038,5 +1038,5 @@ instance Hashable (Hs.CName ())
 instance Hashable (Hs.DerivStrategy ())
 instance Hashable (Hs.MaybePromotedName ())
 #endif
-instance Hashable a => Hashable (S.Set a) where
-  hashWithSalt s a = hashWithSalt s (S.toList a)
+--instance Hashable a => Hashable (S.Set a) where
+--  hashWithSalt s a = hashWithSalt s (S.toList a)
diff --git a/beam-postgres/Database/Beam/Postgres/PgSpecific.hs b/beam-postgres/Database/Beam/Postgres/PgSpecific.hs
@@ -9,6 +9,7 @@
 {-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE ScopedTypeVariables #-}
 {-# LANGUAGE PolyKinds #-}
+{-# LANGUAGE StandaloneDeriving #-}
 {-# LANGUAGE CPP #-}
 
 -- | Postgres-specific types, functions, and operators
@@ -445,6 +446,8 @@ data PgBoundType
   deriving (Show, Generic)
 instance Hashable PgBoundType
 
+deriving instance Eq PgBoundType
+
 lBound :: PgBoundType -> ByteString
 lBound Inclusive = "["
 lBound Exclusive = "("
@@ -476,6 +479,9 @@ data PgRange (n :: *) a
   | PgRange (PgRangeBound a) (PgRangeBound a)
   deriving (Show, Generic)
 
+deriving instance Eq a => Eq (PgRangeBound a)
+deriving instance Eq a => Eq (PgRange n a)
+
 instance Hashable a => Hashable (PgRangeBound a)
 
 instance Hashable a => Hashable (PgRange n a)