Source file deferred.ml

type 'a t = 'a
let return x = x
let return_unit = ()
let iter = List.iter
let fold_left = List.fold_left
let concat_map = List.concat_map

module Infix = struct
  let (>>=) x f = f x
  let (>>|) = (>>=)
end

module Syntax = struct
  let (let*) x f = f x
  let (let+) = (let*)
end