From 4d06d08a03282740a246c3c13866f8456dfb8bd0 Mon Sep 17 00:00:00 2001
From: zapashcanon <leo@ndrs.fr>
Date: Sun, 3 Apr 2022 17:56:02 +0200
Subject: [PATCH] fmt

---
 src/db.ml     |  2 +-
 src/permap.ml | 14 +++++++-------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/db.ml b/src/db.ml
index d70600d..e43af41 100644
--- a/src/db.ml
+++ b/src/db.ml
@@ -14,7 +14,7 @@ let db_uri = Format.sprintf "sqlite3://%s" db
 let random_state = Random.State.make_self_init ()
 
 module Db =
-(val Caqti_blocking.connect (Uri.of_string db_uri) |> Caqti_blocking.or_fail)
+  (val Caqti_blocking.connect (Uri.of_string db_uri) |> Caqti_blocking.or_fail)
 
 let () =
   let set_foreign_keys_on =
diff --git a/src/permap.ml b/src/permap.ml
index 10021e6..8aed574 100644
--- a/src/permap.ml
+++ b/src/permap.ml
@@ -345,14 +345,14 @@ let babillard_post request =
         ; ("thread-comment", [ (_, comment) ])
         ]
     | `Ok
-        (("alt", [ (_, alt) ])
+        ( ("alt", [ (_, alt) ])
         :: ("file", file)
-           :: ("lat-input", [ (_, lat) ])
-              :: ("lng-input", [ (_, lng) ])
-                 :: ("subject", [ (_, subject) ])
-                    :: ("tags", [ (_, tags) ])
-                       :: ("thread-comment", [ (_, comment) ])
-                          :: ([] as categories) ) -> (
+        :: ("lat-input", [ (_, lat) ])
+        :: ("lng-input", [ (_, lng) ])
+        :: ("subject", [ (_, subject) ])
+        :: ("tags", [ (_, tags) ])
+        :: ("thread-comment", [ (_, comment) ])
+        :: ([] as categories) ) -> (
       let categories = List.map snd categories in
       match (Float.of_string_opt lat, Float.of_string_opt lng) with
       | None, _ -> render_unsafe "Invalide coordinate" request