diff options
Diffstat (limited to 'src/Xeno/Types.hs')
| -rw-r--r-- | src/Xeno/Types.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Xeno/Types.hs b/src/Xeno/Types.hs index 231aade..eab1d49 100644 --- a/src/Xeno/Types.hs +++ b/src/Xeno/Types.hs @@ -12,8 +12,10 @@ import Data.Typeable import GHC.Generics data XenoException - = XenoStringIndexProblem - | XenoParseError ByteString + = XenoStringIndexProblem { stringIndex :: Int, inputString :: ByteString } + | XenoParseError { inputIndex :: Int, message :: ByteString } | XenoExpectRootNode deriving (Show, Typeable, NFData, Generic) + instance Exception XenoException where displayException = show + |