Skip to content

Instantly share code, notes, and snippets.

@bitbckt

bitbckt/lazy.ml

Created October 24, 2010 20:39
Show Gist options
  • Save bitbckt/643980 to your computer and use it in GitHub Desktop.
Save bitbckt/643980 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
lazy.ml
module LazyMonad =
struct
type 'a t = 'a lazy_t
let return x = lazy x
let bind m f = lazy (Lazy.force f (Lazy.force m))
end;;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment