From 13af223171039fef454aa6a5be8e96ffb92f7628 Mon Sep 17 00:00:00 2001 From: Eugene Crosser Date: Sun, 13 Apr 2014 00:33:39 +0400 Subject: [PATCH] report 'not found' as emtpy --- pdns-pipe-nmc.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pdns-pipe-nmc.hs b/pdns-pipe-nmc.hs index 3b5ddf6..ed5d47c 100644 --- a/pdns-pipe-nmc.hs +++ b/pdns-pipe-nmc.hs @@ -45,7 +45,7 @@ qRsp rsp = case parseJsonRpc (responseBody rsp) :: Either JsonRpcError NmcRes of Left jerr -> case (jrpcErrCode jerr) of - -4 -> Right "" + -4 -> Right "{}" -- this is how non-existent entry is returned _ -> Left $ "JsonRpc error response: " ++ (show jerr) Right jrsp -> Right $ resValue jrsp -- 2.39.2