mirror of https://github.com/nealey/irc-bot
9 lines
198 B
OCaml
9 lines
198 B
OCaml
|
type goob = Goob of (int ref) * int
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
let a = Goob (ref 1, 2) in
|
||
|
|
if (match a with
|
||
|
|
| Goob ({contents = 1}, _) -> true
|
||
|
|
| _ -> false) then
|
||
|
|
print_endline "hi asl"
|