decodeValidJSON :: Validator a -> LazyBS.ByteString -> ValidationResult a
decodeValidJSON validator input =
  runIdentity (decodeValidJSONT (liftV validator) input)
decodeValidJSON :: Validator a -> LazyBS.ByteString -> ValidationResult a
decodeValidJSON validator input =
  runIdentity (decodeValidJSONT (liftV validator) input)
decodeValidJSON validator input =
  runIdentity (decodeValidJSONT (liftV validator) input)