From 9ed113b1bc6a5209d32eb825759bb5789920ee86 Mon Sep 17 00:00:00 2001
From: Thomas Bauereiss
Date: Tue, 15 Aug 2017 14:25:28 +0100
Subject: Improve and simplify handling of mutable local variables

---
 src/gen_lib/state.lem | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/gen_lib')

diff --git a/src/gen_lib/state.lem b/src/gen_lib/state.lem
index 4543bbcf..d5866cde 100644
--- a/src/gen_lib/state.lem
+++ b/src/gen_lib/state.lem
@@ -54,7 +54,7 @@ let exit _ s = [(Right (), s)]
 val early_return : forall 'regs 'r. 'r -> MR 'regs unit 'r
 let early_return r s = [(Right (Just r), s)]
 
-val catch_early_return : forall 'regs 'a 'r. MR 'regs 'a 'a -> M 'regs 'a
+val catch_early_return : forall 'regs 'a. MR 'regs 'a 'a -> M 'regs 'a
 let catch_early_return m s =
   List.map
     (function
-- 
cgit v1.2.3