Format

Author: engboris

.ocamlformat

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

src/lsc_ast.ml

@@ -22,7 +22,9 @@ module StellarSig = struct
   let compatible (p1, f1) (p2, f2) =
     String.equal f1 f2
     &&
-    match (p1, p2) with Pos, Neg | Neg, Pos | Null, Null -> true | _ -> false
+    match (p1, p2) with
+    | Pos, Neg | Neg, Pos | Null, Null -> true
+    | _ -> false
 end
 
 module StellarRays = Unification.Make (StellarSig)
@@ -140,7 +142,7 @@ let subst_all_vars sub = List.map ~f:(Marked.map ~f:(subst sub))
 let all_vars mcs : StellarSig.idvar list =
   mcs
   |> List.concat_map ~f:(function Marked.State s | Marked.Action s ->
-       List.concat_map s.content ~f:StellarRays.vars )
+    List.concat_map s.content ~f:StellarRays.vars )
 
 let normalize_vars (mcs : Marked.constellation) =
   let vars = all_vars mcs in

src/lsc_pretty.ml

@@ -20,7 +20,7 @@ let rec string_of_ray = function
 let string_of_subst substitution =
   substitution
   |> List.map ~f:(fun (var, ray) ->
-       Printf.sprintf "%s->%s" (string_of_var var) (string_of_ray ray) )
+    Printf.sprintf "%s->%s" (string_of_var var) (string_of_ray ray) )
   |> String.concat ~sep:", " |> Printf.sprintf "{%s}"
 
 let string_of_ban = function

src/sgen_eval.ml

@@ -271,10 +271,9 @@ let rec eval_sgen_expr (env : env) :
     | [ State { content = [ r ]; bans = _ } ]
     | [ Action { content = [ r ]; bans = _ } ] ->
       let er = expr_of_ray r in
-      begin
-        match Expr.sgen_expr_of_expr er with
-        | Ok sg -> eval_sgen_expr env' sg
-        | Error e -> Error (ExprError (e, None))
+      begin match Expr.sgen_expr_of_expr er with
+      | Ok sg -> eval_sgen_expr env' sg
+      | Error e -> Error (ExprError (e, None))
       end
     | e ->
       failwith

web/playground.ml

@@ -32,6 +32,6 @@ let run_stellogen code_js =
 let () =
   Console.console##log (Js.string "Stellogen playground loaded");
   Js.export "Stellogen"
-    (object%js
-       method run code = run_stellogen code
-    end )
+    object%js
+      method run code = run_stellogen code
+    end