diff options
| author | Torsten Schmits <git@tryp.io> | 2023-04-28 16:03:29 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-05-05 22:05:12 -0400 |
| commit | 994bda563604461ffb8454d6e298b0310520bcc8 (patch) | |
| tree | 0a1fcdf64102b0b2deb8ac67fe935ab3070df055 /testsuite/tests/profiling/should_run/ioprof.hs | |
| parent | 8f303d27dfdbf4c33af00d1a7802c8398b4a74d2 (diff) | |
| download | haskell-994bda563604461ffb8454d6e298b0310520bcc8.tar.gz | |
Add structured error messages for GHC.Rename.Module
Tracking ticket: #20115
MR: !10361
This converts uses of `mkTcRnUnknownMessage` to newly added constructors
of `TcRnMessage`.
Only addresses the single warning missing from the previous MR.
Diffstat (limited to 'testsuite/tests/profiling/should_run/ioprof.hs')
| -rw-r--r-- | testsuite/tests/profiling/should_run/ioprof.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/profiling/should_run/ioprof.hs b/testsuite/tests/profiling/should_run/ioprof.hs index 98c7f4e241..4df7899a44 100644 --- a/testsuite/tests/profiling/should_run/ioprof.hs +++ b/testsuite/tests/profiling/should_run/ioprof.hs @@ -10,13 +10,13 @@ newtype M s a = M { unM :: s -> (s,a) } instance Monad (M s) where (M m) >>= k = M $ \s -> case m s of (s',a) -> unM (k a) s' - return a = M $ \s -> (s,a) + instance Functor (M s) where fmap = liftM instance Applicative (M s) where - pure = return + pure a = M $ \s -> (s,a) (<*>) = ap errorM :: String -> M s a |