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