diff options
Diffstat (limited to 'testsuite/tests/simplCore/should_compile/T8331.hs')
| -rw-r--r-- | testsuite/tests/simplCore/should_compile/T8331.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/testsuite/tests/simplCore/should_compile/T8331.hs b/testsuite/tests/simplCore/should_compile/T8331.hs index 04cb1aff73..a7dc318826 100644 --- a/testsuite/tests/simplCore/should_compile/T8331.hs +++ b/testsuite/tests/simplCore/should_compile/T8331.hs @@ -23,6 +23,8 @@ instance (Monad m) => Monad (ReaderT r m) where m >>= k = ReaderT $ \ r -> do a <- runReaderT m r runReaderT (k a) r + +instance MonadFail m => MonadFail (ReaderT r m) where fail msg = ReaderT (\_ -> fail msg) mapReaderT :: (m a -> n b) -> ReaderT r m a -> ReaderT r n b |