module JSONBytesBuilder.Builder
(
Literal,
null,
boolean,
number_int,
number_integer,
number_double,
number_scientific,
string,
object,
array,
Rows,
row,
Elements,
element,
)
where
import JSONBytesBuilder.Prelude hiding (null)
import qualified Data.ByteString.Builder as A
import qualified JSONBytesBuilder.ByteString.Builders as E
newtype Literal =
Literal A.Builder
newtype Rows =
Rows (Maybe A.Builder)
instance Monoid Rows where
mempty =
Rows Nothing
mappend =
\case
Rows (Just left) ->
\case
Rows (Just right) ->
Rows (Just (left <> A.char8 ',' <> right))
_ ->
Rows (Just left)
Rows Nothing ->
id
newtype Elements =
Elements (Maybe A.Builder)
instance Monoid Elements where
mempty =
Elements Nothing
mappend =
\case
Elements (Just left) ->
\case
Elements (Just right) ->
Elements (Just (left <> A.char8 ',' <> right))
_ ->
Elements (Just left)
Elements Nothing ->
id
null :: Literal
null =
Literal (inline E.null)
boolean :: Bool -> Literal
boolean =
Literal . inline E.boolean
number_int :: Int -> Literal
number_int =
Literal . inline A.intDec
number_integer :: Integer -> Literal
number_integer =
Literal . inline A.integerDec
number_double :: Double -> Literal
number_double =
Literal . inline A.doubleDec
number_scientific :: Scientific -> Literal
number_scientific =
Literal . inline E.scientific
string :: Text -> Literal
string =
Literal . inline E.string
object :: Rows -> Literal
object (Rows x) =
Literal (maybe E.emptyObject (inline E.inCurlies) x)
array :: Elements -> Literal
array (Elements x) =
Literal (maybe E.emptyArray (inline E.inSquarelies) x)
row :: Text -> Literal -> Rows
row key (Literal literal) =
Rows (Just (inline E.row key literal))
element :: Literal -> Elements
element (Literal literal) =
Elements (Just literal)