R/functions.R

#' @export
fmap.function <- function(.m, .f, ...) {
  function(...) {
    .f(.m(...))
  }
}

#' @export
bind.function <- function(.m, .f, ...) {
  .f(.m(...))
}
hadley/monads documentation built on May 17, 2019, 11:03 a.m.