Source file bad_opts.ml

1
2
3
4
5
6
7
8
open! Core

let bad_sub (type a) (t : a Bonsai.Private.Computation.t) : a Bonsai.Private.Computation.t
  =
  match t with
  | Sub x -> x.into
  | _ -> t
;;