blob: 798eafc787e9773e599d29c2555c62e25843cfd9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# LANGUAGE KindSignatures #-}
module WCompatWarningsOnOff where
import qualified Data.Semigroup as Semi
(<>) = undefined -- Semigroup warnings
-- -fwarn-noncanonical-monoid-instances
newtype S = S Int
instance Semi.Semigroup S where
(<>) = mappend
instance Monoid S where
S a `mappend` S b = S (a+b)
mempty = S 0
-- -fwarn-star-is-type
b :: (Bool :: *)
b = True
|
