@@ -229,9 +229,8 @@ dequeue (CQueue arrived incoming) blockSpec matchons =
229229 go (Append xs ys) tl = go xs (append ys tl)
230230 go (Snoc xs x) tl = go xs (Cons x tl)
231231 go (Cons x xs) tl
232− | Just y <- checkMatches matches x = (Append xs tl, Just y)
233− | otherwise = (Cons x rest, r)
234− where !(rest,r) = go xs tl
232+ | Just y <- checkMatches matches x = (append xs tl, Just y)
233+ | otherwise = let !(rest,r) = go xs tl in (Cons x rest, r)
235234
236235 checkMatches :: [m -> Maybe a] -> m -> Maybe a
237236 checkMatches [] _ = Nothing