Commit 5d7b255d authored by Dag Brattli's avatar Dag Brattli

Add alternative apply in comment

parent 4866c40a
......@@ -62,7 +62,8 @@ module Core =
ps |>> fun x -> x.Trim([| ' '; '@'|])
let apply pf pa =
// pf >>= fun f -> pa >>= fun a -> preturn (f a)
// pf >>= fun f -> pa >>= preturn >> f
// pf >>= fun f -> pa >>= f -> preturn f a
pf >>= fun f -> pa |>> f
let (<*>) f a = apply f a
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment