update state monad example for empty tuple
This commit is contained in:
parent
f1af997708
commit
582895005a
|
@ -25,7 +25,7 @@ bind(("state", h), f) ->
|
||||||
get = ("state", \st -> (st, st)).
|
get = ("state", \st -> (st, st)).
|
||||||
|
|
||||||
-- sets the state, and the result to ()
|
-- sets the state, and the result to ()
|
||||||
put(st) -> ("state", \_ -> ((), st)).
|
put(st) -> ("state", \_ -> ((,), st)).
|
||||||
|
|
||||||
|
|
||||||
derp = return(10).
|
derp = return(10).
|
||||||
|
|
Loading…
Reference in New Issue