{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TupleSections #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Test.Amazonka.Orphans where
import Amazonka.Data
import Data.Aeson
instance FromJSON ByteString where
parseJSON :: Value -> Parser ByteString
parseJSON = forall a. String -> (Text -> Parser a) -> Value -> Parser a
withText String
"bytestring" (forall a c b. (a -> c) -> (b -> c) -> Either a b -> c
either forall (m :: * -> *) a. MonadFail m => String -> m a
fail forall (f :: * -> *) a. Applicative f => a -> f a
pure forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. FromText a => Text -> Either String a
fromText)