module Sound.File.Sndfile.Exception (
Exception(..),
catch, try, throw
) where
import Control.Exception (catch, try)
import qualified Control.Exception as E
import Data.Typeable (Typeable)
import Prelude hiding (catch)
data Exception =
Exception { errorString :: String }
| UnrecognisedFormat { errorString :: String }
| SystemError { errorString :: String }
| MalformedFile { errorString :: String }
| UnsupportedEncoding { errorString :: String }
deriving (Typeable, Show)
instance E.Exception (Exception)
fromErrorCode :: Int -> String -> Exception
fromErrorCode 1 = UnrecognisedFormat
fromErrorCode 2 = SystemError
fromErrorCode 3 = MalformedFile
fromErrorCode 4 = UnsupportedEncoding
fromErrorCode _ = Exception
throw :: Int -> String -> a
throw code str = E.throw (fromErrorCode code str)