fmt

Author: engboris

src/lsc/lsc_ast.ml

@@ -440,11 +440,13 @@ let search_partners ~linear ~showtrace (selected_ray, other_rays, bans) actions
           (selected_action, other_actions)
           (selected_ray, other_rays, bans)
       in
-      if not @@ List.is_empty res && linear then
+      if (not @@ List.is_empty res) && linear then
         let* next, new_actions = try_actions acc other_actions in
         Ok (res @ next, new_actions)
       else
-        let* next, new_actions = try_actions (selected_action :: acc) other_actions in
+        let* next, new_actions =
+          try_actions (selected_action :: acc) other_actions
+        in
         Ok (res @ next, new_actions)
   in
   try_actions [] actions

src/stellogen/sgen_eval.ml

@@ -31,7 +31,8 @@ let rec map_galaxy env ~f : galaxy -> (galaxy, err) Result.t = function
     in
     Galaxy g' |> Result.return
 
-and map_galaxy_expr env ~f : galaxy_expr -> (galaxy_expr, err) Result.t = function
+and map_galaxy_expr env ~f : galaxy_expr -> (galaxy_expr, err) Result.t =
+  function
   | Raw g ->
     let* map_g = map_galaxy env ~f g in
     Raw map_g |> Result.return