module System.TPFS.Errors (
OutOfSpace(..),
EndOfChain(..)
) where
import Control.Exception (Exception)
import Data.Typeable
data OutOfSpace = OutOfSpace deriving Typeable
instance Show OutOfSpace where
showsPrec _ _ = showString "The target filesystem does not have enough free blocks left to perform this operation."
instance Exception OutOfSpace
data EndOfChain = EndOfChain deriving Typeable
instance Show EndOfChain where
showsPrec _ _ = showString "Reached end of block chain prematurely."
instance Exception EndOfChain