decodeValidJSONStrictT :: Applicative m
                       => ValidatorT m a -> BS.ByteString -> m (ValidationResult a)
decodeValidJSONStrictT validator input =
  case eitherDecodeStrict input of
  Left err -> pure $ Invalid (errMessage $ Text.pack err)
  Right value -> runValidatorT validator (value :: Value)
decodeValidJSONStrictT :: Applicative m
                       => ValidatorT m a -> BS.ByteString -> m (ValidationResult a)
decodeValidJSONStrictT validator input =
  case eitherDecodeStrict input of
  Left err -> pure $ Invalid (errMessage $ Text.pack err)
  Right value -> runValidatorT validator (value :: Value)
decodeValidJSONStrictT validator input =
  case eitherDecodeStrict input of
  Left err -> pure $ Invalid (errMessage $ Text.pack err)
  Right value -> runValidatorT validator (value :: Value)