module Jsonifier.Write
where

import Jsonifier.Prelude
import PtrPoker.Write
import qualified Jsonifier.Poke as Poke


{-# INLINE scientificString #-}
scientificString :: Scientific -> Write
scientificString :: Scientific -> Write
scientificString Scientific
a =
  case Scientific -> Write
scientificAsciiDec Scientific
a of
    Write Int
size Poke
poke ->
      Int -> Poke -> Write
Write (Int
size Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
2) (Poke
Poke.doubleQuote Poke -> Poke -> Poke
forall a. Semigroup a => a -> a -> a
<> Poke
poke Poke -> Poke -> Poke
forall a. Semigroup a => a -> a -> a
<> Poke
Poke.doubleQuote)