fmt

.ocamlformat

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

src/map.ml

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

src/user.ml

@@ -154,8 +154,7 @@ let list () =
   Ok
     (Format.asprintf "<ul>%a</ul>"
        (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 )
 
 let get_nick_unsafe request = Option.get @@ Dream.session "nick" request