blob: 83d624d83ee0dd64c95122f2848fa0ade4980076 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
module Exception
( AnyException (..),
InvalidTreeGrepperResult (..),
ProcessException (..),
UnknownFileExtension (..),
)
where
import Control.Exception
import Data.ByteString.Lazy.Char8 as LB
import System.Exit (ExitCode)
data AnyException
= InvalidTreeGrepperResult' InvalidTreeGrepperResult
| ProcessException' ProcessException
| UnknownFileExtension' UnknownFileExtension
deriving (Show)
instance Exception AnyException
data InvalidTreeGrepperResult = InvalidTreeGrepperResult
{ error :: String
}
deriving (Show)
instance Exception InvalidTreeGrepperResult
data ProcessException = ProcessException String ExitCode LB.ByteString
deriving (Show)
instance Exception ProcessException
data UnknownFileExtension = UnknownFileExtension
{ extension :: String
}
deriving (Show)
instance Exception UnknownFileExtension
|
