combinedValidations :: (Monad m, MonadIO m) => User -> m (Either (UserShaped (Const (Maybe Text))) User)
combinedValidations u = case transfGen $ validateRecord u clientValidation of
  Left  a -> return $ Left a
  Right b -> serverSideValidation b
combinedValidations :: (Monad m, MonadIO m) => User -> m (Either (UserShaped (Const (Maybe Text))) User)
combinedValidations u = case transfGen $ validateRecord u clientValidation of
  Left  a -> return $ Left a
  Right b -> serverSideValidation b
combinedValidations u = case transfGen $ validateRecord u clientValidation of
  Left  a -> return $ Left a
  Right b -> serverSideValidation b