File tree Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -55,15 +55,15 @@ instance TestPlan (Pure Int) PurePlan where
55
55
runPure :: PurePlan a -> (a , IntSet )
56
56
runPure (PurePlan p) = runStateT p mempty $ 0
57
57
58
- relavantTimes :: IntSet -> IntSet
59
- relavantTimes occs = IntSet. fromList [0 .. l + 1 ]
58
+ relevantTimes :: IntSet -> IntSet
59
+ relevantTimes occs = IntSet. fromList [0 .. l + 1 ]
60
60
where l = fromMaybe 0 (fst <$> IntSet. maxView occs)
61
61
62
62
testBehavior :: (Behavior (Pure Int ) a , IntSet ) -> IntMap a
63
- testBehavior (b, occs) = IntMap. fromSet (sample b) (relavantTimes occs)
63
+ testBehavior (b, occs) = IntMap. fromSet (sample b) (relevantTimes occs)
64
64
65
65
testEvent :: (Event (Pure Int ) a , IntSet ) -> IntMap (Maybe a )
66
- testEvent (Event readEvent, occs) = IntMap. fromSet readEvent (relavantTimes occs)
66
+ testEvent (Event readEvent, occs) = IntMap. fromSet readEvent (relevantTimes occs)
67
67
68
68
69
69
You can’t perform that action at this time.
0 commit comments