TextEncoder.hs

-- |
-- Encoders to text format.
module Main.TextEncoder where

import Data.ByteString.Builder
import qualified Data.ByteString.Builder.Scientific
import qualified Data.UUID
import Main.Prelude hiding (bool, maybe)
import qualified Main.Prelude as Prelude

type Encoder a =
  a -> Builder

bool :: Encoder Bool
bool =
  byteString . Prelude.bool "false" "true"

int2_int16 :: Encoder Int16
int2_int16 =
  int16Dec

int4_int32 :: Encoder Int32
int4_int32 =
  int32Dec

int8_int64 :: Encoder Int64
int8_int64 =
  int64Dec

int2_word16 :: Encoder Word16
int2_word16 =
  word16Dec

int4_word32 :: Encoder Word32
int4_word32 =
  word32Dec

int8_word64 :: Encoder Word64
int8_word64 =
  word64Dec

float4 :: Encoder Float
float4 =
  floatDec

float8 :: Encoder Double
float8 =
  doubleDec

numeric :: Encoder Scientific
numeric =
  Data.ByteString.Builder.Scientific.scientificBuilder

uuid :: Encoder UUID
uuid =
  byteString . Data.UUID.toASCIIBytes

bytea_strict :: Encoder ByteString
bytea_strict =
  byteString