@@ -75,11 +75,9 @@ instance ToParam Value 'PGjsonb where toParam = K . Encoding.jsonb_ast
7575
7676class ToColumnParam x (ty :: ColumnType) where
7777 toColumnParam :: x -> K (Maybe Strict.ByteString) ty
78−instance ToParam x pg => ToColumnParam x ('Required ('NotNull pg)) where
78+instance ToParam x pg => ToColumnParam x (optionality ('NotNull pg)) where
7979 toColumnParam = K . Just . Encoding.encodingBytes . unK . toParam @x @pg
80−instance ToParam x pg => ToColumnParam (Maybe x) ('Required ('Null pg)) where
81− toColumnParam = K . fmap (Encoding.encodingBytes . unK . toParam @x @pg)
82−instance ToParam x pg => ToColumnParam (Maybe x) ('Optional (nullity pg)) where
80+instance ToParam x pg => ToColumnParam (Maybe x) (optionality ('Null pg)) where
8381 toColumnParam = K . fmap (Encoding.encodingBytes . unK . toParam @x @pg)
8482
8583class SListI tys => ToParams x (tys :: [ColumnType]) where