From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Fri, 27 Sep 2013 01:19:03 +0000 (-0400)
Subject: Fix fragile pattern-matching.
X-Git-Url: https://git.xandkar.net/?p=cellular-automata.git;a=commitdiff_plain;h=b36c0aefcdd063383fcb93863d47741d8bcc7d5a

Fix fragile pattern-matching.
---

diff --git a/polymorphic-life/001/src/polymorphic_life.ml b/polymorphic-life/001/src/polymorphic_life.ml
index 7b55572..4a28992 100644
--- a/polymorphic-life/001/src/polymorphic_life.ml
+++ b/polymorphic-life/001/src/polymorphic_life.ml
@@ -97,7 +97,8 @@ module Conway : CELL = struct
     | A when live_neighbors < 4 -> A
     | A when live_neighbors > 3 -> D
     | D when live_neighbors = 3 -> A
-    | t -> t
+    | A -> A
+    | D -> D
 end