summaryrefslogtreecommitdiff
path: root/src/Xeno/Types.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xeno/Types.hs')
-rw-r--r--src/Xeno/Types.hs6
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
+