Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

Add old deepseq support for travis-ci
  • Loading branch information...
commit 6c8750e0bcce0abf808c54d9e6e749e3ee2d5186 2 parents 6bf120a + 460854b
@maoe maoe authored
Showing with 7 additions and 1 deletion.
  1. +7 −1 FRP/Euphoria/Event.hs
View
8 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
Please sign in to comment.
Something went wrong with that request. Please try again.