swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

remove plants :(

Browse source
This commit is contained in:
Swrup 2022-01-18 00:12:03 +01:00
parent 77ed1f483f
commit 56e0e02a7b
10 changed files with 12 additions and 426 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/babillard.ml
View file

@ -2,20 +2,15 @@ open Db
exception Invalid_post of string
type board =
| Plants
| Babillard
type board = Babillard
let int_of_board = function
| Plants -> 0
| Babillard -> 1
let pp_board fmt = function
| Plants -> Format.fprintf fmt "plants"
| Babillard -> Format.fprintf fmt "babillard"
let board_of_int = function
| 0 -> Plants
| 1 -> Babillard
| _ -> raise (Invalid_argument "board_of_int")