module Data.JsonSchema.Draft4.Failure where
import qualified Data.Validator.Failure as FR
type Invalid = FR.Failure ValidatorChain
data ValidatorChain
= MultipleOf
| Maximum
| ExclusiveMaximum
| Minimum
| ExclusiveMinimum
| MaxLength
| MinLength
| PatternValidator
| MaxItems
| MinItems
| UniqueItems
| Items ValidatorChain
| AdditionalItemsBool
| AdditionalItemsObject ValidatorChain
| MaxProperties
| MinProperties
| Required
| SchemaDependency ValidatorChain
| PropertyDependency
| Properties ValidatorChain
| PatternProperties ValidatorChain
| AdditionalPropertiesBool
| AdditionalPropertiesObject ValidatorChain
| RefResolution
| Ref ValidatorChain
| Enum
| TypeValidator
| AllOf ValidatorChain
| AnyOf
| OneOf
| NotValidator
deriving (Eq, Show)