Fix a bug where `Multiple_choices was considered an error for Subscri…

…ption.create_for_url
brendanlong · Sep 4, 2018 · 1376307 · 1376307
1 parent fff5239
commit 1376307
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/feedbin_client_lwt/src/subscription.ml b/feedbin_client_lwt/src/subscription.ml
@@ -31,8 +31,9 @@ let create_for_url client feed_url =
     { Subscription.feed_url }
     |> Subscription.create_to_string
   in
-  Client.call ~data ~ok_statuses:[ `Created ; `Found ; `Not_found ] `POST client
-    ~path
+  Client.call ~data
+    ~ok_statuses:[ `Created ; `Found ; `Not_found ; `Multiple_choices ]
+    `POST client ~path
   >|= Result.bind ~f:(fun (status, body) ->
       match status with
       | `Not_found -> Ok None