Source file `ident.ml`

1
2
3
4
5
6
7
8
9
10
11
12
open! Base
open! Import

module T = struct
  include Monad.Ident

  let apply t1 t2 = t1 t2
end

include T
include Many.Of_applicative (T)
include Nonempty.Of_applicative_without_return (T)