Merge pull request #79 from anka-213/fix-infinite-loop

Fix infinite recursion on error
2020-10-27 11:23:49 +01:00
parent db5ee0b66a 1ff66006b8
commit 7dc6717b5e
1 changed files with 1 additions and 1 deletions
--- 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