mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-15 17:31:56 +03:00
ec8b2c80b5
* remove phase one/two distinction and hdbquery typeclass * move extensions to default-extensions * switch to LazyTx which only acquires a connection if needed * move defns from TH module into Ops module * remove tojson orphan instance for http exception * remove orphan instance for dmlp1 * getTopLevelNodes will not throw any exceptions
40 lines
1016 B
Haskell
40 lines
1016 B
Haskell
module Data.TByteString
|
|
( TByteString
|
|
, fromText
|
|
, fromBS
|
|
, fromLBS
|
|
) where
|
|
|
|
import qualified Data.Aeson as J
|
|
import qualified Data.ByteString as B
|
|
import qualified Data.ByteString.Base64 as B64
|
|
import qualified Data.ByteString.Lazy as BL
|
|
import qualified Data.Text as T
|
|
import qualified Data.Text.Encoding as TE
|
|
|
|
import Data.Bool (bool)
|
|
import Prelude
|
|
|
|
newtype TByteString
|
|
= TByteString (Bool, T.Text)
|
|
deriving (Show, Eq)
|
|
|
|
instance J.ToJSON TByteString where
|
|
toJSON (TByteString (isBase64, t)) =
|
|
bool (J.toJSON t) (J.toJSON ["Base64", t]) isBase64
|
|
|
|
fromText :: T.Text -> TByteString
|
|
fromText t = TByteString (False, t)
|
|
|
|
fromBS :: B.ByteString -> TByteString
|
|
fromBS bs =
|
|
TByteString $
|
|
-- if the bs in not utf-8 encoded, encode it to Base64
|
|
case TE.decodeUtf8' bs of
|
|
Left _ -> (True, TE.decodeUtf8 $ B64.encode bs)
|
|
Right t -> (False, t)
|
|
|
|
fromLBS :: BL.ByteString -> TByteString
|
|
fromLBS =
|
|
fromBS . BL.toStrict
|