56b91df9d5
This avoids `Stack_overflow`s that otherwise occur when the behavior is only partially implemented.
26 lines
583 B
OCaml
26 lines
583 B
OCaml
type 'a t = MRand_not_implemented_yet
|
|
|
|
let map (f : 'a -> 'b) (s : 'a t) : 'b t =
|
|
Utils.not_yet "MRand.map" (f, s)
|
|
|
|
let return (x : 'a) : 'a t =
|
|
Utils.not_yet "MRand.return" x
|
|
|
|
let bind (sa : 'a t) (f : 'a -> 'b t) : 'b t =
|
|
Utils.not_yet "MRand.bind" (sa, f)
|
|
|
|
let delay (f : unit -> 'a t) : 'a t =
|
|
Utils.not_yet "MRand.delay" f
|
|
|
|
let sum (li : 'a t list) : 'a t =
|
|
Utils.not_yet "MRand.sum" li
|
|
|
|
let fail : 'a t =
|
|
MRand_not_implemented_yet
|
|
|
|
let one_of (vs : 'a array) : 'a t =
|
|
Utils.not_yet "MRand.one_of" vs
|
|
|
|
let run (s : 'a t) : 'a Seq.t =
|
|
Utils.not_yet "MRand.run" s
|