swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fmt

Browse source
This commit is contained in:
zapashcanon 2022-04-03 17:56:02 +02:00
parent 6df2a74d08
commit 4d06d08a03
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
2 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/db.ml
View file

@ -14,7 +14,7 @@ let db_uri = Format.sprintf "sqlite3://%s" db
let random_state = Random.State.make_self_init () let random_state = Random.State.make_self_init ()
module Db = 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 () =
let set_foreign_keys_on = let set_foreign_keys_on =

2
src/permap.ml
View file

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