+ mgr <- newManager def
+
+ print $ qReq cfg "d/nosuchdomain"
+ rsp <- runResourceT $ httpLbs (qReq cfg "d/nosuchdomain") mgr
+ print $ (statusCode . responseStatus) rsp
+ putStrLn "===== complete response is:"
+ print rsp
+ let rbody = responseBody rsp
+ putStrLn "===== response body is:"
+ print rbody
+ let result = parseJsonRpc rbody :: Either JsonRpcError NmcRes
+ putStrLn "===== parsed response is:"
+ print result
+-- print $ parseJsonRpc (responseBody rsp)