module JSONBytesBuilder.Private.Builder
where
import JSONBytesBuilder.Private.Prelude hiding (null)
import qualified Data.ByteString.Builder as A
import qualified Data.Text.Lazy as C
import qualified Data.ByteString.Lazy as D
import qualified JSONBytesBuilder.Private.ByteString.Builder 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
instance Semigroup Rows
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
instance Semigroup Elements
null :: Literal
null =
Literal (inline E.null)
boolean :: Bool -> Literal
boolean =
Literal . inline E.boolean
numberFromInt :: Int -> Literal
numberFromInt =
Literal . inline A.intDec
numberFromInteger :: Integer -> Literal
numberFromInteger =
Literal . inline A.integerDec
numberFromDouble :: Double -> Literal
numberFromDouble =
Literal . inline A.doubleDec
numberFromScientific :: Scientific -> Literal
numberFromScientific =
Literal . inline E.scientific
stringFromText :: Text -> Literal
stringFromText =
Literal . inline E.stringFromText
stringFromLazyText :: C.Text -> Literal
stringFromLazyText =
Literal . inline E.stringFromLazyText
stringFromBytes :: ByteString -> Literal
stringFromBytes =
Literal . inline E.stringFromBytes
stringFromLazyBytes :: D.ByteString -> Literal
stringFromLazyBytes =
Literal . inline E.stringFromLazyBytes
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)