summaryrefslogtreecommitdiff
path: root/src/Xeno/Types.hs
blob: 231aade7c30d4a07a3aaaf27ba103ce90d567266 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
{-# 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
  | XenoParseError ByteString
  | XenoExpectRootNode
  deriving (Show, Typeable, NFData, Generic)
instance Exception XenoException where displayException = show