module Hasql.Core.DecodePrimitive where
import Hasql.Prelude hiding (bool)
import Hasql.Core.Model
import qualified BinaryParser as A
import qualified PostgreSQL.Binary.Decoding as B
newtype DecodePrimitive primitive =
DecodePrimitive (ReaderT Bool A.BinaryParser primitive)
deriving (Functor)
nonDateTime :: A.BinaryParser primitive -> DecodePrimitive primitive
nonDateTime parser =
DecodePrimitive (ReaderT (const parser))
dateTime :: A.BinaryParser primitive -> A.BinaryParser primitive -> DecodePrimitive primitive
dateTime intParser floatParser =
DecodePrimitive (ReaderT (\case False -> floatParser; True -> intParser))
bool :: DecodePrimitive Bool
bool =
nonDateTime B.bool
int8 :: DecodePrimitive Int64
int8 =
nonDateTime B.int
text :: DecodePrimitive Text
text =
nonDateTime B.text_strict
bytea :: DecodePrimitive ByteString
bytea =
nonDateTime B.bytea_strict
timestamptz :: DecodePrimitive UTCTime
timestamptz =
dateTime B.timestamptz_int B.timestamptz_float