ignoreEPipe :: a -> IO a -> IO a
ignoreEPipe d = handleJust (guard . isEPipe) (const $ return d)
  where isEPipe e = ioeGetErrorType e == ResourceVanished
ignoreEPipe :: a -> IO a -> IO a
ignoreEPipe d = handleJust (guard . isEPipe) (const $ return d)
  where isEPipe e = ioeGetErrorType e == ResourceVanished
ignoreEPipe d = handleJust (guard . isEPipe) (const $ return d)
  where isEPipe e = ioeGetErrorType e == ResourceVanished