Monoidクラスのインスタンスにすることがうまくいかない

1newtype MyAny = MyAny {getMyAny :: Bool} deriving (Eq,Ord,Read,Bounded,Show) 2 3instance Monoid MyAny where 4 mempty = MyAny False 5 MyAny u `mappend` MyAny v = MyAny (u || v) と書いたファイルをghciに読み込ませると file13.hs:22:10: error: • No instance for (Semigroup MyAny) arising from the superclasses of an instance declaration • In the instance declaration for ‘Monoid MyAny’ | 22 | instance Monoid MyAny where

[igrep]

古い本に従ってたらみんなハマると思うので、質問してくれて助かる