From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Fri, 4 Oct 2013 23:47:30 +0000 (-0400)
Subject: Re-align stuff.
X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=635c1868707b86e336209e0eff475526549a792e;p=cellular-automata.git

Re-align stuff.
---

diff --git a/polymorphism/001/src/polymorphism.ml b/polymorphism/001/src/polymorphism.ml
index ab2cbd5..d292e28 100644
--- a/polymorphism/001/src/polymorphism.ml
+++ b/polymorphism/001/src/polymorphism.ml
@@ -264,8 +264,8 @@ struct
     Random.int 2 |> State.of_int |> State.to_cell
 
   let count_of_live =
-       List.map       ~f:State.of_cell_state
-    |- List.filter    ~f:State.is_alive
+       List.map    ~f:State.of_cell_state
+    |- List.filter ~f:State.is_alive
     |- List.length
 
   let transition ~self ~neighbors =
@@ -346,8 +346,8 @@ struct
     Random.int 3 |> State.of_int |> State.to_cell
 
   let count_of_burning =
-       List.map       ~f:State.of_cell_state
-    |- List.filter    ~f:State.is_burning
+       List.map    ~f:State.of_cell_state
+    |- List.filter ~f:State.is_burning
     |- List.length
 
   let transition ~self ~neighbors =