Merge branch 'develop-fix-event-old-base' into develop. Close #239.

ivanperez-keera · Oct 15, 2022 · 05c31a6 · 05c31a6
2 parents 5ca9671 + 6178d36
commit 05c31a6
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/yampa-test/CHANGELOG b/yampa-test/CHANGELOG
@@ -1,6 +1,7 @@
 2022-10-15 Ivan Perez <ivan.perez@keera.co.uk>
         * yampa-test.cabal: add tests for module FRP.Yampa.Event (#237).
-        * tests/: add tests for module FRP.Yampa.Event (#237).
+        * tests/: add tests for module FRP.Yampa.Event (#237), explicit import
+          from Control.Applicative with old versions of base (#239).
 
 2022-10-07 Ivan Perez <ivan.perez@keera.co.uk>
         * yampa-test.cabal: Version bump (0.13.7) (#238).

diff --git a/yampa-test/tests/Test/FRP/Yampa/Event.hs b/yampa-test/tests/Test/FRP/Yampa/Event.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 -- |
 -- Description : Test cases for events
 -- Copyright   : Ivan Perez, 2022
@@ -10,6 +11,11 @@ module Test.FRP.Yampa.Event
 import Control.Applicative ((<|>))
 import Control.Monad       (guard, join)
 
+#if !MIN_VERSION_base(4,8,0)
+import Control.Applicative (pure, (<*>))
+import Data.Functor        ((<$>))
+#endif
+
 import Test.QuickCheck       hiding (once, sample)
 import Test.Tasty            (TestTree, testGroup)
 import Test.Tasty.QuickCheck (testProperty)