@@ -26,14 +26,14 @@ dequeueMatching (CQueue arrived incoming) matches =
2626 modifyMVar arrived (checkArrived [])
2727 where
2828 checkArrived :: [a] -> [a] -> IO ([a], a)
29− checkArrived xs' [] = checkIncomming xs'
29+ checkArrived xs' [] = checkIncoming xs'
3030 checkArrived xs' (x:xs)
3131 | matches x = return (reverse xs' ++ xs, x)
3232 | otherwise = checkArrived (x:xs') xs
3333
34− checkIncomming :: [a] -> IO ([a], a)
35− checkIncomming xs' = do
34+ checkIncoming :: [a] -> IO ([a], a)
35+ checkIncoming xs' = do
3636 x <- readChan incoming
3737 if matches x
3838 then return (reverse xs', x)
39− else checkIncomming (x:xs')
39+ else checkIncoming (x:xs')