diff options
Diffstat (limited to 'src/gen_lib/state.lem')
| -rw-r--r-- | src/gen_lib/state.lem | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gen_lib/state.lem b/src/gen_lib/state.lem index 2e11e8a9..140258d8 100644 --- a/src/gen_lib/state.lem +++ b/src/gen_lib/state.lem @@ -52,7 +52,7 @@ let exit _ s = [(Right (), s)] val early_return : forall 'r. 'r -> MR unit 'r let early_return r s = [(Right (Just r), s)] -val catch_early_return : forall 'a 'r. MR 'a 'a -> M 'a +val catch_early_return : forall 'a. MR 'a 'a -> M 'a let catch_early_return m s = List.map (function |