Add Functor and Bifunctor instances for (:&)

bitemyapp · May 14, 2024 · c2be86c · c2be86c
1 parent 30a5e80
commit c2be86c
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Database/Esqueleto/Internal/Internal.hs b/src/Database/Esqueleto/Internal/Internal.hs
@@ -1442,6 +1442,12 @@ data (:&) a b = a :& b
     deriving (Eq, Show)
 infixl 2 :&
 
+instance Functor (:&) where
+  fmap = bimap id
+
+instance Bifunctor (:&) where
+  bimap f g (x :& y) = f x :& g y
+
 -- | Different kinds of locking clauses supported by 'locking'.
 --
 -- Note that each RDBMS has different locking support.  The