blob: 4c53a1e4ea4814328a4e6270ba2eae0f8fa82cea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
-- Test purpose:
-- Ensure that using -Wno-compat does not switch on warnings
-- {-# OPTIONS_GHC -Wcompat #-}
{-# OPTIONS_GHC -Wno-compat #-}
module WCompatWarningsOff where
monadFail :: Monad m => m a
monadFail = do
Just _ <- undefined
undefined
(<>) = undefined -- Semigroup warnings
|