refactor: add Hasql arrayColumn decoder
This commit is contained in:
committed by
Steve Chavez
parent
04eaeec7fc
commit
a6696f3ba1
@@ -15,8 +15,8 @@ column = HD.column . HD.nonNullable
|
||||
nullableColumn :: HD.Value a -> HD.Row (Maybe a)
|
||||
nullableColumn = HD.column . HD.nullable
|
||||
|
||||
element :: HD.Value a -> HD.Array a
|
||||
element = HD.element . HD.nonNullable
|
||||
arrayColumn :: HD.Value a -> HD.Row [a]
|
||||
arrayColumn = column . HD.array . HD.dimension replicateM . HD.element . HD.nonNullable
|
||||
|
||||
param :: HE.Value a -> HE.Params a
|
||||
param = HE.param . HE.nonNullable
|
||||
|
||||
Reference in New Issue
Block a user