dune fmt

Author: engboris

src/stellogen/sgen_ast.ml

@@ -51,10 +51,7 @@ type env =
 
 let expect (g : galaxy_expr) : galaxy_expr =
   Raw
-    (Galaxy
-       [ GLabelDef ("interaction", Id "tested")
-       ; GLabelDef ("expect", g)
-       ] )
+    (Galaxy [ GLabelDef ("interaction", Id "tested"); GLabelDef ("expect", g) ])
 
 let initial_env =
   { objs = [ ("^empty", Raw (Const [])) ]