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
|
||
|
|