From a95f992881daa8bb553c655d21b4bcc40f57e1de Mon Sep 17 00:00:00 2001 From: swrup Date: Sun, 30 Nov 2025 11:33:51 +0100 Subject: [PATCH] fmt --- .ocamlformat | 2 +- src/amount.ml | 3 ++- src/assets.ml | 12 ++++++++---- src/mte.ml | 3 ++- src/pg.ml | 7 +++++-- 5 files changed, 18 insertions(+), 9 deletions(-) diff --git a/.ocamlformat b/.ocamlformat index 4d907d30..43b12fc0 100644 --- a/.ocamlformat +++ b/.ocamlformat @@ -2,7 +2,7 @@ version=0.28.1 exp-grouping=preserve type-decl=sparse break-infix=fit-or-vertical -break-collection-expressions=wrap +break-collection-expressions=fit-or-vertical break-sequences=false break-infix-before-func=false dock-collection-brackets=true diff --git a/src/amount.ml b/src/amount.ml index 2b65bd2e..2a49a548 100644 --- a/src/amount.ml +++ b/src/amount.ml @@ -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 = diff --git a/src/assets.ml b/src/assets.ml index 261442e7..9d6c8088 100644 --- a/src/assets.ml +++ b/src/assets.ml @@ -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"); ] diff --git a/src/mte.ml b/src/mte.ml index 6dcc275d..0cd5dcf6 100644 --- a/src/mte.ml +++ b/src/mte.ml @@ -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; diff --git a/src/pg.ml b/src/pg.ml index 4c97f8a4..b6f6264e 100644 --- a/src/pg.ml +++ b/src/pg.ml @@ -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) ->