@@ -17,12 +17,12 @@ import Test.Run
18main :: IO ()
18main :: IO ()
20− let actions = [ Increment, Update0th, Increment, Swap, Increment ]
20+ let actions = [ Increment, Update0th, Increment, Swap, Increment, Increment ]
21 os <- runAppB testPatchMapWithMove $ map Just actions
21 os <- runAppB testPatchMapWithMove $ map Just actions
22 -- If the final counter value in the adjusted widgets corresponds to the number of times it has
22 -- If the final counter value in the adjusted widgets corresponds to the number of times it has
23 -- been incremented, we know that the networks haven't broken.
23 -- been incremented, we know that the networks haven't broken.
24 let expectedCount = length $ ffilter (== Increment) actions
24 let expectedCount = length $ ffilter (== Increment) actions
25− let True = last (last os) == [expectedCount,expectedCount]
25+ let !True = last (last os) == [expectedCount,expectedCount]
28data PatchMapTestAction
28data PatchMapTestAction
@@ -59,4 +59,4 @@ testPatchMapWithMove pulse = do
59 (Map.fromList $ zip [0..] "ab")
59 (Map.fromList $ zip [0..] "ab")
60 (fmapMaybe id pulseAction)
60 (fmapMaybe id pulseAction)
62− return result
62+ return result