Commits

Yaron Minsky committed 53915bd

removed useless sexp/bin-io converters

  • Participants
  • Parent commits 0de2bf5

Comments (0)

Files changed (1)

   | Move of Direction.t
   | Status
   | New_game
-with sexp, bin_io
 
 let line_to_action line =
   let line = String.strip line |> String.lowercase in
   | Some d -> Some (Move d)
   | None ->
     match line with
-    | "stat" | "status"      -> Some Status
+    | "" | "stat" | "status" -> Some Status
     | "new game" | "newgame" -> Some New_game
     | _ -> None
 
 type player = { pos: Vec.t
               ; steps: int
               }
-with sexp, bin_io
 
 let player_step t dir =
   let pos = Vec.add (Direction.to_vec dir) t.pos in
 type winners = { players: Player_name.t list
                ; max_steps: int
                }
-with sexp, bin_io
 
 type status =
   | Playing
   | Game_over of winners
-with sexp, bin_io
 
 type t =
   { players: player Player_name.Map.t
   ; max_y: int
   ; status: status
   }
-with sexp, bin_io
 
 let create () =
   { players = Player_name.Map.empty