diff options
| author | Inari Listenmaa <inari.listenmaa@gmail.com> | 2020-10-27 11:23:49 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-10-27 11:23:49 +0100 |
| commit | 7dc6717b5e95122a810d3b580981fc4ce0c9744b (patch) | |
| tree | 87c079df07b803f0616ccd5dd6c5328ea662693a | |
| parent | db5ee0b66a1db3a28dad9c74b6fe98d80729fa93 (diff) | |
| parent | 1ff66006b8d928da01a56ca9f930f07b3cb2a01e (diff) | |
Merge pull request #79 from anka-213/fix-infinite-loop
Fix infinite recursion on error
| -rw-r--r-- | src/compiler/GF/Infra/SIO.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Infra/SIO.hs b/src/compiler/GF/Infra/SIO.hs index 0ce431380..906f39345 100644 --- a/src/compiler/GF/Infra/SIO.hs +++ b/src/compiler/GF/Infra/SIO.hs @@ -60,7 +60,7 @@ instance Monad SIO where SIO m1 >>= xm2 = SIO $ \ h -> m1 h >>= \ x -> unS (xm2 x) h instance Fail.MonadFail SIO where - fail = liftSIO . fail + fail = lift0 . fail instance Output SIO where ePutStr = lift0 . ePutStr |