Skip to content

Instantly share code, notes, and snippets.

@SteveGilham
Created April 26, 2015 14:10
Show Gist options
  • Save SteveGilham/ec4bc63b293169995b46 to your computer and use it in GitHub Desktop.
Save SteveGilham/ec4bc63b293169995b46 to your computer and use it in GitHub Desktop.
Hypothetical typeclass definition of monad Bind
let __binder__<'T, 'U, 'M when 'M : (static member bind : ('T -> 'U 'M ) -> 'T 'M -> 'U 'M)> (x: 'T 'M) (f : 'T -> 'U 'M) =
x |> 'M.bind f;;
let (>>=) = __binder__;;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment