on develop help sign in
Fix benchmarks
8716849Ryan Trinkle
bench/RunAll.hs+1−1
@@ -74,7 +74,7 @@ newtype Ignore a = Ignore a
74instance NFData (Ignore a) where
74instance NFData (Ignore a) where
75 rnf !_ = ()
75 rnf !_ = ()
76
76
77−instance NFData (SpiderEventHandle a) where
77+instance NFData (SpiderEventHandle x a) where
78 rnf !_ = ()
78 rnf !_ = ()
79
79
80instance NFData (Behavior t a) where
80instance NFData (Behavior t a) where
reflex.cabal+1−1
@@ -115,7 +115,7 @@ benchmark saulzar-bench
115 mtl,
115 mtl,
116 primitive,
116 primitive,
117 process,
117 process,
118− ref-tf == 0.4,
118+ ref-tf,
119 reflex,
119 reflex,
120 split,
120 split,
121 stm,
121 stm,
src/Reflex/Spider/Internal.hs+1
@@ -28,6 +28,7 @@ module Reflex.Spider.Internal
28 , runSpiderHost
28 , runSpiderHost
29 , newSpiderEnv
29 , newSpiderEnv
30 , askSpiderEnv
30 , askSpiderEnv
31+ , SpiderEventHandle
31 ) where
32 ) where
32
33
33import Control.Applicative
34import Control.Applicative