about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--nix/stateMonad/default.nix2
1 files changed, 1 insertions, 1 deletions
diff --git a/nix/stateMonad/default.nix b/nix/stateMonad/default.nix
index 8f92241753df..209412e09952 100644
--- a/nix/stateMonad/default.nix
+++ b/nix/stateMonad/default.nix
@@ -17,7 +17,7 @@ rec {
     (f afterAction.value) afterAction.state;
 
   # Type: stateMonad s a -> stateMonad s b -> stateMonad s b
-  after = action1: action2: bind action1 (_: action2);
+  after = action1: action2: state: action2 (action1 state).state;
 
   # Type: stateMonad s (stateMonad s a) -> stateMonad s a
   join = action: bind action (action': action');