formatting

examples/dune

@@ -98,7 +98,7 @@
  (modules complex)
  (libraries joy))
 
-(executable 
+(executable
  (name repeat)
  (modules repeat)
- (libraries joy))
+ (libraries joy))

examples/repeat.ml

@@ -1,16 +1,16 @@
-open Joy.Shape 
+open Joy.Shape
 
-(* 
-   demonstration of the repeat function 
-   takes n, an operation, and an initial shape, and applies the operation 
-   iteratively to the initial shape n times
-   
-   adapted from the original Joy python library's examples 
+(*
+    demonstration of the repeat function
+    takes n, an operation, and an initial shape, and applies the operation
+    iteratively to the initial shape n times
+
+    adapted from the original Joy python library's examples
 *)
 
 let () =
   init ();
-  let circle = circle ~x: (-100) ~y: 0 50 in 
-  let shapes = repeat 10 (translate 10 0) circle in 
+  let circle = circle ~x:(-100) ~y:0 50 in
+  let shapes = repeat 10 (translate 10 0) circle in
   render_shape shapes;
-  close ();
+  close ()

lib/shape.ml

@@ -135,15 +135,13 @@ let rec rotate degrees shape =
   | Complex shapes -> Complex (List.map (rotate degrees) shapes)
 
 let compose f g x = g (f x)
+let rec range a b = if a >= b then [] else a :: range (a + 1) b
 
-let rec range a b = if a >= b then [] else a :: range (a + 1) b  
-let repeat n op shape = 
-  let match_list l = 
-    match l with
-    | [] -> [ op shape ]
-    | last :: _ -> op last :: l
+let repeat n op shape =
+  let match_list l =
+    match l with [] -> [ op shape ] | last :: _ -> op last :: l
   in
-  let shapes = List.fold_right (fun _ acc -> match_list acc) (range 0 n) [] in 
+  let shapes = List.fold_right (fun _ acc -> match_list acc) (range 0 n) [] in
   complex shapes
 
 let render_axes () =