-- | An error indicating that an 'IO' operation failed because
-- the device is full.
isFullError         :: IOError -> Bool
isFullError          = isFullErrorType             . ioeGetErrorType
isFullError         :: IOError -> Bool
isFullError          = isFullErrorType             . ioeGetErrorType
isFullError          = isFullErrorType             . ioeGetErrorType