blob: eab1d499b6d0c5d93b24760d210699b8161334cb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
-- | Shared types.
module Xeno.Types where
import Control.DeepSeq
import Control.Exception
import Data.ByteString (ByteString)
import Data.Typeable
import GHC.Generics
data XenoException
= XenoStringIndexProblem { stringIndex :: Int, inputString :: ByteString }
| XenoParseError { inputIndex :: Int, message :: ByteString }
| XenoExpectRootNode
deriving (Show, Typeable, NFData, Generic)
instance Exception XenoException where displayException = show
|
