Add instance Default Updater (Field_ n a) ()

tomjaguarpaw · Oct 4, 2024 · 602a595 · 602a595
1 parent c0470bd
commit 602a595
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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)