24 lines
400 B
Haskell
24 lines
400 B
Haskell
{-# OPTIONS_HADDOCK ignore-exports #-}
|
|
{-# LANGUAGE DeriveDataTypeable #-}
|
|
|
|
module IO.Error where
|
|
|
|
|
|
import Control.Exception
|
|
import Control.Monad
|
|
(
|
|
mzero
|
|
, MonadPlus
|
|
)
|
|
import Data.Typeable
|
|
|
|
|
|
data FmIOException = FileDoesNotExist String
|
|
| PathNotAbsolute String
|
|
| FileNotExecutable String
|
|
deriving (Show, Typeable)
|
|
|
|
|
|
instance Exception FmIOException
|
|
|