:recycle: provider parsing data

src/integrations/provider.gleam

···
   Ok(response.body)
 }
 
+fn parse_healthcheck_respose(body: String) -> Result(HealthcheckResponse, json.DecodeError) {
+  let parser = {
+    use failing <- decode.field("failing", decode.bool)
+    use min_response_time <- decode.field("minResponseTime", decode.int)
+
+    decode.success(HealthcheckResponse(
+      failing: failing,
+      min_response_time: min_response_time,
+    ))
+  }
+
+  json.parse(body, parser)
+}
+
 pub fn health_check(
   provider: ProviderConfig,
 ) -> Result(HealthcheckResponse, httpc.HttpError) {
   let assert Ok(request) =
     request.to(provider.url <> "/payments/service-health")
 
-  case health_check_req(request) {
-    Error(e) -> Error(e)
-    Ok(body) -> {
-      let parser = {
-        use failing <- decode.field("failing", decode.bool)
-        use min_response_time <- decode.field("minResponseTime", decode.int)
+  use body <- result.try(health_check_req(request))
 
-        decode.success(HealthcheckResponse(
-          failing: failing,
-          min_response_time: min_response_time,
-        ))
-      }
-
-      let assert Ok(data) = json.parse(body, parser)
-      Ok(data)
-    }
-  }
+  let assert Ok(data) = parse_healthcheck_respose(body)
+  Ok(data)
 }