Merge pull request tsurucapital#6 from maoe/feature/travis-ci

Add old deepseq support for travis-ci
jaspervdj · Jul 9, 2012 · 6c8750e · 6c8750e
2 parents 6bf120a + 460854b
commit 6c8750e
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/FRP/Euphoria/Event.hs b/FRP/Euphoria/Event.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE DeriveFunctor, MultiParamTypeClasses, DeriveDataTypeable, BangPatterns, DoRec #-}
+{-# LANGUAGE CPP, DeriveFunctor, MultiParamTypeClasses, DeriveDataTypeable, BangPatterns, DoRec #-}
 
 -- For EasyApply
 {-# LANGUAGE FlexibleInstances, FunctionalDependencies #-}
@@ -742,6 +742,12 @@ rnfD = forceD . fmap force
 rnfE :: (NFData a) => Event a -> SignalGen (Event a)
 rnfE = forceE . fmap force
 
+#if !MIN_VERSION_deepseq(1,2,0)
+force :: NFData a => a -> a
+force x = x `deepseq` x
+#endif
+
+
 --------------------------------------------------------------------------------
 -- SignalSet