Fix test build with GHC <= 7.4

ChristopherKing42 · Dec 5, 2017 · c9bddda · c9bddda
1 parent 53e316d
commit c9bddda
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/test-async.hs b/test/test-async.hs
@@ -112,7 +112,7 @@ async_cancelmany :: Assertion -- issue 59
 async_cancelmany = do
   r <- newIORef []
   a <- async $ forConcurrently_ ['a'..'z'] $ \c ->
-    delay 2 `finally` atomicModifyIORef' r (\i -> (c:i,()))
+    delay 2 `finally` atomicModifyIORef r (\i -> (c:i,()))
   delay 1
   cancel a
   v <- readIORef r