From dac20304c43d1e0e3d1f4bace45336e4827bb717 Mon Sep 17 00:00:00 2001
From: Swrup <swrup@protonmail.com>
Date: Wed, 9 Mar 2022 20:43:45 +0100
Subject: [PATCH] fix matching form on category

---
 src/app.ml    |  2 +-
 src/permap.ml | 11 ++++++++++-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/app.ml b/src/app.ml
index ec84d50..afc1afe 100644
--- a/src/app.ml
+++ b/src/app.ml
@@ -87,4 +87,4 @@ let get_dirs name =
 
 let admins = get_dirs "admin"
 
-let categories = get_dirs "category"
+let categories = List.sort_uniq compare (get_dirs "category")
diff --git a/src/permap.ml b/src/permap.ml
index 0f340c9..12f4adc 100644
--- 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