Catch exceptions in an Iteratee

gistfile1.hs

import Control.Exception (Exception, catch)
import Data.Enumerator (Iteratee (..), Step (..))
import Data.ByteString (ByteString)
import Prelude hiding (catch)

catchIter :: Exception e
          => Iteratee ByteString IO a
          -> (e -> Iteratee ByteString IO a)
          -> Iteratee ByteString IO a
catchIter (Iteratee mstep) f = Iteratee $ do
    step <- mstep `catch` (runIteratee . f)
    return $ case step of
        Continue k -> Continue $ \s -> catchIter (k s) f
        Yield b s -> Yield b s
        Error e -> Error e

Not works for errors such divide by zero e.t.c. In this case flow not reach line 15.

UPD: Sorry. Only for lazy functions.