diff options
Diffstat (limited to 'compiler/utils/State.hs')
| -rw-r--r-- | compiler/utils/State.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/State.hs b/compiler/utils/State.hs index 7346841613..a1903cee76 100644 --- a/compiler/utils/State.hs +++ b/compiler/utils/State.hs @@ -19,7 +19,7 @@ instance Applicative (State s) where (# x, s'' #) -> (# f x, s'' #) instance Monad (State s) where - return x = State $ \s -> (# x, s #) + return = pure m >>= n = State $ \s -> case runState' m s of (# r, s' #) -> runState' (n r) s' |