From b2f5f20509c12bb94783f7035042aed1e0d99c58 Mon Sep 17 00:00:00 2001 From: Eugene Crosser Date: Sat, 29 Mar 2014 23:45:48 +0400 Subject: [PATCH] return empty domain if data not found --- pdns-pipe-nmc.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/pdns-pipe-nmc.hs b/pdns-pipe-nmc.hs index e9b2969..a3fc8c7 100644 --- a/pdns-pipe-nmc.hs +++ b/pdns-pipe-nmc.hs @@ -41,7 +41,10 @@ qReq cf q id = applyBasicAuth (C.pack (rpcuser cf)) (C.pack (rpcpassword cf)) qRsp :: Response ByteString -> Either String NmcDom qRsp rsp = case parseJsonRpc (responseBody rsp) :: Either JsonRpcError NmcRes of - Left jerr -> Left $ "Unparseable response: " ++ (show (responseBody rsp)) + Left jerr -> + case (jrpcErrCode jerr) of + -4 -> Right emptyNmcDom + _ -> Left $ "JsonRpc error response: " ++ (show jerr) Right jrsp -> case resValue jrsp of "" -> Right emptyNmcDom -- 2.39.2