Sane parameter ordering

Author: adrianmay

Control/Concurrent/STM/TQueue.hs

@@ -121,8 +121,8 @@ readTQueue (TQueue read write) = do
 -- case 4: Like case 3 but prepend read onto return value
 
 -- |Reads N values, blocking until enough are available
-readTQueueN :: Int -> TQueue a -> STM [a]
-readTQueueN n (TQueue read write) = do
+readTQueueN :: TQueue a -> Int -> STM [a]
+readTQueueN (TQueue read write) n = do
   xs <- readTVar read
   let xl = length xs
   if xl > n then do -- case 1a

testsuite/src/Stm066.hs

@@ -23,8 +23,8 @@ main = do
     writeTQueue q 3
     writeTQueue q 4
   l <- atomically $ do
-         _ <- readTQueueN 1 q 
-         readTQueueN 3 q 
+         _ <- readTQueueN q 1 
+         readTQueueN q 3 
 
   unless (l == [2,3,4]) $
     fail (show l)