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

fmt

Browse source
This commit is contained in:
swrup 2025-11-30 11:33:51 +01:00
parent 2ceecb5aba
commit a95f992881
5 changed files with 18 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/amount.ml
View file

@ -56,7 +56,8 @@ let of_string =
choice
[
char '+' *> return (Some Sign_plus);
char '-' *> return (Some Sign_minus); return None;
char '-' *> return (Some Sign_minus);
return None;
]
in
let parse_currency =

12
src/assets.ml
View file

@ -17,10 +17,14 @@ let privacy_legal_version = "1"
module Mimetype = struct
let mimetype_extension_assoc =
[
(("text", "plain"), ".txt"); (("text", "markdown"), ".md");
(("text", "html"), ".html"); (("text", "html"), ".htm");
(("application", "pdf"), ".pdf"); (("image", "jpeg"), ".jpg");
(("image", "jpeg"), ".jpeg"); (("image", "png"), ".png");
(("text", "plain"), ".txt");
(("text", "markdown"), ".md");
(("text", "html"), ".html");
(("text", "html"), ".htm");
(("application", "pdf"), ".pdf");
(("image", "jpeg"), ".jpg");
(("image", "jpeg"), ".jpeg");
(("image", "png"), ".png");
(("image", "gif"), ".gif");
]

3
src/mte.ml
View file

@ -25,7 +25,8 @@ let routes =
let open Vif.Route in
let open Vif.Type in
[
get (rel /?? nil) --> hello; get (rel / "terms" /?? nil) --> Static.terms;
get (rel /?? nil) --> hello;
get (rel / "terms" /?? nil) --> Static.terms;
get (rel / "privacy" /?? nil) --> Static.privacy;
get (rel / "management" / "keys" /?? nil) --> Management.keys_get;
post any (rel / "management" / "keys" /?? nil) --> Management.keys_post;

7
src/pg.ml
View file

@ -71,8 +71,11 @@ let preflight =
Caqti_type.(unit ->. unit)
[
"SET SESSION CHARACTERISTICS AS TRANSACTION ISOLATION LEVEL \
SERIALIZABLE;"; "SET enable_sort=OFF;"; "SET enable_seqscan=OFF;";
"SET enable_mergejoin=OFF;"; "SET search_path TO exchange;";
SERIALIZABLE;";
"SET enable_sort=OFF;";
"SET enable_seqscan=OFF;";
"SET enable_mergejoin=OFF;";
"SET search_path TO exchange;";
]
in
fun (module Conn : Caqti_miou.CONNECTION) ->