How to detect the end of input in conduit?

Question

I'm trying to use network-conduit as a backend for (patched) HaskellNet's IMAP. One of the required operations is to detect if the stream is open. Currently I'm using

isOpen :: (Monad m) => ConduitM i o m Bool
isOpen = await >>= maybe (return False) ((True <$) . leftover)

Is this correct, or is there a better way?

Answer 1

That's correct, the only possible improvement is you could use the peek helper function, but what you have here is fine.