dune fmt

Author: engboris

src/lsc_eval.ml

@@ -7,7 +7,6 @@ let ( let* ) x f = Result.bind x ~f
 
 type configuration = constellation * constellation
 
-
 let fmap_ban ~f = function
   | Ineq (b1, b2) -> Ineq (f b1, f b2)
   | Incomp (b1, b2) -> Incomp (f b1, f b2)

src/sgen_eval.ml

@@ -94,7 +94,7 @@ let rec eval_sgen_expr (env : env) :
       List.fold_left t ~init:(Ok init) ~f:(fun acc x ->
         let* acc = acc in
         let origin = acc |> Marked.remove_all |> Marked.make_state_all in
-          eval_sgen_expr env (Focus (Exec (false, Group [ x; Raw origin ]))) )
+        eval_sgen_expr env (Focus (Exec (false, Group [ x; Raw origin ]))) )
     in
     res |> Result.return
   | Eval e -> (