module Text.JSON.Failure
(
NoSuchField(..)
, ExpectedObject(..)
, ExpectedBool(..)
, ExpectedNumber(..)
, ExpectedString(..)
, ExpectedArray(..)
, NoSuchFieldOrExpectedObject(..)
) where
import Data.Data
data NoSuchField z =
NoSuchField z
deriving (Eq, Ord, Show, Data, Typeable)
data ExpectedObject j =
ExpectedObject j
deriving (Eq, Ord, Show, Data, Typeable)
data ExpectedArray j =
ExpectedArray j
deriving (Eq, Ord, Show, Data, Typeable)
data ExpectedBool j =
ExpectedBool j
deriving (Eq, Ord, Show, Data, Typeable)
data ExpectedNumber j =
ExpectedNumber j
deriving (Eq, Ord, Show, Data, Typeable)
data ExpectedString j =
ExpectedString j
deriving (Eq, Ord, Show, Data, Typeable)
data NoSuchFieldOrExpectedObject z j =
NoSuchFieldOrExpectedObject (forall x. (NoSuchField z -> x) -> (ExpectedObject j -> x) -> x)