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

import Main.Prelude hiding (maybe, bool)
import Data.ByteString.Builder
import qualified Data.ByteString.Builder.Scientific
import qualified Data.Text.Encoding
import qualified Data.UUID
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