Skip to content

Commit fc68de9

Browse files
authored
Merge pull request #230 from alexfmpe/fix-typo
Fix typo: relavant -> relevant
2 parents 18e12c0 + d282471 commit fc68de9

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

test/Reflex/Plan/Pure.hs

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -55,15 +55,15 @@ instance TestPlan (Pure Int) PurePlan where
5555
runPure :: PurePlan a -> (a, IntSet)
5656
runPure (PurePlan p) = runStateT p mempty $ 0
5757

58-
relavantTimes :: IntSet -> IntSet
59-
relavantTimes occs = IntSet.fromList [0..l + 1]
58+
relevantTimes :: IntSet -> IntSet
59+
relevantTimes occs = IntSet.fromList [0..l + 1]
6060
where l = fromMaybe 0 (fst <$> IntSet.maxView occs)
6161

6262
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)
6464

6565
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)
6767

6868

6969

0 commit comments

Comments
 (0)