decodeResult res =
    case Aeson.eitherDecode' (res ^. responseBody) of
        Left err  -> throwM $ MalformedGdaxResponse (T.pack err)
        Right val -> return val
decodeResult res =
    case Aeson.eitherDecode' (res ^. responseBody) of
        Left err  -> throwM $ MalformedGdaxResponse (T.pack err)
        Right val -> return val
decodeResult res =
    case Aeson.eitherDecode' (res ^. responseBody) of
        Left err  -> throwM $ MalformedGdaxResponse (T.pack err)
        Right val -> return val