fmt

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 =

src/permap.ml

@@ -345,7 +345,7 @@ let babillard_post request =
         ; ("thread-comment", [ (_, comment) ])
         ]
     | `Ok
-        (("alt", [ (_, alt) ])
+        ( ("alt", [ (_, alt) ])
         :: ("file", file)
         :: ("lat-input", [ (_, lat) ])
         :: ("lng-input", [ (_, lng) ])