dequeue :: IOLoop a -> Maybe ([B.ByteString], IO Bool) -> IO ([B.ByteString], IO Bool)
dequeue _ (Just acc) = return acc
dequeue :: IOLoop a -> Maybe ([B.ByteString], IO Bool) -> IO ([B.ByteString], IO Bool)
dequeue _ (Just acc) = return acc
dequeue _ (Just acc) = return acc