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