From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Fri, 27 Sep 2013 01:54:03 +0000 (-0400)
Subject: Remove unneeded operation: set
X-Git-Url: https://git.xandkar.net/?p=cellular-automata.git;a=commitdiff_plain;h=949d1c88ee5df62985ffd56e851544e4713334eb

Remove unneeded operation: set
---

diff --git a/polymorphic-life/001/src/polymorphic_life.ml b/polymorphic-life/001/src/polymorphic_life.ml
index c28852a..544136c 100644
--- a/polymorphic-life/001/src/polymorphic_life.ml
+++ b/polymorphic-life/001/src/polymorphic_life.ml
@@ -8,8 +8,6 @@ module type MATRIX = sig
 
   val get : 'a t -> row:int -> col:int -> 'a
 
-  val set : 'a t -> row:int -> col:int -> data:'a -> unit
-
   val map : 'a t -> f:('a -> 'b) -> 'b t
 
   val mapi : 'a t -> f:(row:int -> col:int -> data:'a -> 'b) -> 'b t
@@ -55,9 +53,6 @@ module Matrix : MATRIX = struct
 
   let get t ~row ~col =
     t.(row).(col)
-
-  let set t ~row ~col ~data =
-    t.(row).(col) <- data
 end