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

fmt

Browse source
This commit is contained in:
Swrup 2025-05-02 19:55:00 +02:00
parent 8955d9d73f
commit e9954bf54e
3 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
.ocamlformat
View file

@ -1,4 +1,4 @@
version=0.24.1 version=0.27.0
assignment-operator=end-line assignment-operator=end-line
break-cases=fit break-cases=fit
break-fun-decl=wrap break-fun-decl=wrap

3
src/map.ml
View file

@ -64,8 +64,7 @@ let count_wheat map =
let count' = let count' =
Array.fold_left Array.fold_left
(fun count -> function (fun count -> function
| Wheat -> succ count | Wheat -> succ count | Black | Grass | Water -> count )
| Black | Grass | Water -> count )
0 a 0 a
in in
count + count' ) count + count' )

3
src/user.ml
View file

@ -154,8 +154,7 @@ let list () =
Ok Ok
(Format.asprintf "<ul>%a</ul>" (Format.asprintf "<ul>%a</ul>"
(Format.pp_print_list (fun fmt -> function (Format.pp_print_list (fun fmt -> function
| s -> Format.fprintf fmt {|<li><a href="/user/%s">%s</a></li>|} s s ) | s -> Format.fprintf fmt {|<li><a href="/user/%s">%s</a></li>|} s s ))
)
users ) users )
let get_nick_unsafe request = Option.get @@ Dream.session "nick" request let get_nick_unsafe request = Option.get @@ Dream.session "nick" request