@@ -23,6 +23,7 @@ import Data.Monoid
24import Prelude
24import Prelude
26+{-# ANN testCases "HLint: ignore Functor law" #-}
26testCases :: [(String, TestCase)]
27testCases :: [(String, TestCase)]
27testCases =
28testCases =
28 [ testB "hold" $ hold "0" =<< events1
29 [ testB "hold" $ hold "0" =<< events1