git.iko.soy/squeal
on dev help sign in
fix lack of default as parameter
c59b6ffEitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/Binary.hs+2−4
compare with dev
unifiedsplit
@@ -75,11 +75,9 @@ instance ToParam Value 'PGjsonb where toParam = K . Encoding.jsonb_ast
75
75
76class ToColumnParam x (ty :: ColumnType) where
76class ToColumnParam x (ty :: ColumnType) where
77 toColumnParam :: x -> K (Maybe Strict.ByteString) ty
77 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
79 toColumnParam = K . Just . Encoding.encodingBytes . unK . toParam @x @pg
79 toColumnParam = K . Just . Encoding.encodingBytes . unK . toParam @x @pg
80−instance ToParam x pg => ToColumnParam (Maybe x) ('Required ('Null pg)) where
80+instance ToParam x pg => ToColumnParam (Maybe x) (optionality ('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
83 toColumnParam = K . fmap (Encoding.encodingBytes . unK . toParam @x @pg)
81 toColumnParam = K . fmap (Encoding.encodingBytes . unK . toParam @x @pg)
84
82
85class SListI tys => ToParams x (tys :: [ColumnType]) where
83class SListI tys => ToParams x (tys :: [ColumnType]) where