Added instance DefaultFromField (T.SqlArray_ Nullable a) [Maybe b]

This should have been added when we did the Column -> Field conversion Addresses #558 (comment)
tomjaguarpaw · Sep 1, 2022 · 61e7cc2 · 61e7cc2
1 parent a1fd043
commit 61e7cc2
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,3 +1,5 @@
+* Added `instance DefaultFromField (T.SqlArray_ Nullable a) [Maybe b]`
+
 * Changed `ascNullsFirst` and `descNullsLast` to work with nullable
   fields.  This rectifies an oversight from the `Column` to `Field`
   change.  This may technically be a PVP violation but I think the

diff --git a/src/Opaleye/Internal/RunQuery.hs b/src/Opaleye/Internal/RunQuery.hs
@@ -321,6 +321,10 @@ instance (Typeable b, DefaultFromField a b) =>
          DefaultFromField (T.SqlRange a) (PGSR.PGRange b) where
   defaultFromField = fromFieldRange defaultFromField
 
+instance (Typeable b, DefaultFromField a b) =>
+         DefaultFromField (T.SqlArray_ Nullable a) [Maybe b] where
+  defaultFromField = fromFieldArrayNullable defaultFromField
+
 fromFieldRange :: Typeable b
                => FromField a b
                -> FromField (T.SqlRange a) (PGSR.PGRange b)