From 34684bed83cba52f6a1d54f2713ed4bffdd9c337 Mon Sep 17 00:00:00 2001
From: Tom Ellis <tom-git@jaguarpaw.co.uk>
Date: Fri, 4 Oct 2024 12:26:38 +0100
Subject: [PATCH] Add instance Default Updater (Field_ n a) ()

---
 src/Opaleye/Internal/Manipulation.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Opaleye/Internal/Manipulation.hs b/src/Opaleye/Internal/Manipulation.hs
index 136348da..3b8fbbc9 100644
--- a/src/Opaleye/Internal/Manipulation.hs
+++ b/src/Opaleye/Internal/Manipulation.hs
@@ -125,6 +125,9 @@ instance D.Default Updater (Field_ n a) (Field_ n a) where
 instance D.Default Updater (Field_ n a) (Maybe (Field_ n a)) where
   def = Updater Just
 
+instance D.Default Updater (Field_ n a) () where
+  def = Updater (const ())
+
 arrangeDeleteReturning :: U.Unpackspec columnsReturned ignored
                        -> T.Table columnsW columnsR
                        -> (columnsR -> Field SqlBool)