diff options
| author | krangelov <kr.angelov@gmail.com> | 2021-01-20 20:16:26 +0100 |
|---|---|---|
| committer | krangelov <kr.angelov@gmail.com> | 2021-01-20 20:16:26 +0100 |
| commit | 04f6f113f07712a35128a924558dac9a3f83a822 (patch) | |
| tree | 6f60a5dd879f17fd7a6b0c9c5de7daf1df7e374f /src/compiler/GF/Infra/SIO.hs | |
| parent | bac619f025e8b3680e93cc64eddd9cebfc350249 (diff) | |
| parent | d77921005a429406398167c713969c6d807e56fa (diff) | |
Merge branch 'master' of https://github.com/GrammaticalFramework/gf-core
Diffstat (limited to 'src/compiler/GF/Infra/SIO.hs')
| -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 |