module Network.Minio.JsonParser
( parseErrResponseJSON,
)
where
import Data.Aeson
( FromJSON,
eitherDecode,
parseJSON,
withObject,
(.:),
)
import qualified Data.Text as T
import Lib.Prelude
import Network.Minio.Errors
data AdminErrJSON = AdminErrJSON
{ AdminErrJSON -> Text
aeCode :: Text,
AdminErrJSON -> Text
aeMessage :: Text
}
deriving stock (AdminErrJSON -> AdminErrJSON -> Bool
(AdminErrJSON -> AdminErrJSON -> Bool)
-> (AdminErrJSON -> AdminErrJSON -> Bool) -> Eq AdminErrJSON
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AdminErrJSON -> AdminErrJSON -> Bool
$c/= :: AdminErrJSON -> AdminErrJSON -> Bool
== :: AdminErrJSON -> AdminErrJSON -> Bool
$c== :: AdminErrJSON -> AdminErrJSON -> Bool
Eq, Int -> AdminErrJSON -> ShowS
[AdminErrJSON] -> ShowS
AdminErrJSON -> String
(Int -> AdminErrJSON -> ShowS)
-> (AdminErrJSON -> String)
-> ([AdminErrJSON] -> ShowS)
-> Show AdminErrJSON
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AdminErrJSON] -> ShowS
$cshowList :: [AdminErrJSON] -> ShowS
show :: AdminErrJSON -> String
$cshow :: AdminErrJSON -> String
showsPrec :: Int -> AdminErrJSON -> ShowS
$cshowsPrec :: Int -> AdminErrJSON -> ShowS
Show)
instance FromJSON AdminErrJSON where
parseJSON :: Value -> Parser AdminErrJSON
parseJSON = String
-> (Object -> Parser AdminErrJSON) -> Value -> Parser AdminErrJSON
forall a. String -> (Object -> Parser a) -> Value -> Parser a
withObject String
"AdminErrJSON" ((Object -> Parser AdminErrJSON) -> Value -> Parser AdminErrJSON)
-> (Object -> Parser AdminErrJSON) -> Value -> Parser AdminErrJSON
forall a b. (a -> b) -> a -> b
$ \Object
v ->
Text -> Text -> AdminErrJSON
AdminErrJSON
(Text -> Text -> AdminErrJSON)
-> Parser Text -> Parser (Text -> AdminErrJSON)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
v Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"Code"
Parser (Text -> AdminErrJSON) -> Parser Text -> Parser AdminErrJSON
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
v Object -> Key -> Parser Text
forall a. FromJSON a => Object -> Key -> Parser a
.: Key
"Message"
parseErrResponseJSON :: (MonadIO m) => LByteString -> m ServiceErr
parseErrResponseJSON :: LByteString -> m ServiceErr
parseErrResponseJSON LByteString
jsondata =
case LByteString -> Either String AdminErrJSON
forall a. FromJSON a => LByteString -> Either String a
eitherDecode LByteString
jsondata of
Right AdminErrJSON
aErr -> ServiceErr -> m ServiceErr
forall (m :: * -> *) a. Monad m => a -> m a
return (ServiceErr -> m ServiceErr) -> ServiceErr -> m ServiceErr
forall a b. (a -> b) -> a -> b
$ Text -> Text -> ServiceErr
toServiceErr (AdminErrJSON -> Text
aeCode AdminErrJSON
aErr) (AdminErrJSON -> Text
aeMessage AdminErrJSON
aErr)
Left String
err -> MErrV -> m ServiceErr
forall (m :: * -> *) e a. (MonadIO m, Exception e) => e -> m a
throwIO (MErrV -> m ServiceErr) -> MErrV -> m ServiceErr
forall a b. (a -> b) -> a -> b
$ Text -> MErrV
MErrVJsonParse (Text -> MErrV) -> Text -> MErrV
forall a b. (a -> b) -> a -> b
$ String -> Text
T.pack String
err