verdict-json-0.0.0.0: src/Verdict/JSON.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}
module Verdict.JSON
    ( JsonSchema(..)
    , ObjectSchema(..)
    , AnySchema(..)
    , Required(..)
    , mkAny
    , jsonSchema
    ) where

import Data.Aeson
import Verdict

import Verdict.JSON.Class
import Verdict.JSON.Types

instance (HaskVerdict c a, FromJSON a) => FromJSON (Validated c a) where
    parseJSON x = parseJSON x >>= either (fail . show) return . validate

instance (ToJSON a) => ToJSON (Validated c a) where
    toJSON = toJSON . getVal