fix matching form on category

2022-03-09 20:43:45 +01:00 · 2022-03-09 20:43:45 +01:00 · 674e63aa77
commit 674e63aa77
parent b5fc7e9a8d
2 changed files with 11 additions and 2 deletions
--- a/src/permap.ml
+++ b/src/permap.ml
@ -350,7 +350,16 @@ let babillard_post request =
        ; ("subject", [ (_, subject) ])
        ; ("tags", [ (_, tags) ])
        ; ("thread-comment", [ (_, comment) ])
-        ] -> (
+        ]
+    | `Ok
+        (("alt", [ (_, alt) ])
+        :: ("file", file)
+           :: ("lat-input", [ (_, lat) ])
+              :: ("lng-input", [ (_, lng) ])
+                 :: ("subject", [ (_, subject) ])
+                    :: ("tags", [ (_, tags) ])
+                       :: ("thread-comment", [ (_, comment) ])
+                          :: ([] as categories) ) -> (
      let categories =
        List.map (fun (_name, category) -> category) categories
      in