resetUidpwdUserPassword :: UUID -> HashedPassword -> SqlPersistM (Maybe Account)
resetUidpwdUserPassword userId hashedPassword = do
  updatedRows <-
    updateCount $ \accountUidpwd -> do
      set accountUidpwd [AccountUidpwdPassword =. val (hash hashedPassword)]
      where_ ((accountUidpwd ^. AccountUidpwdAccountId) ==. val userId)
  case updatedRows of
    0 -> return Nothing
    1 -> get (AccountKey userId)
resetUidpwdUserPassword :: UUID -> HashedPassword -> SqlPersistM (Maybe Account)
resetUidpwdUserPassword userId hashedPassword = do
  updatedRows <-
    updateCount $ \accountUidpwd -> do
      set accountUidpwd [AccountUidpwdPassword =. val (hash hashedPassword)]
      where_ ((accountUidpwd ^. AccountUidpwdAccountId) ==. val userId)
  case updatedRows of
    0 -> return Nothing
    1 -> get (AccountKey userId)
resetUidpwdUserPassword userId hashedPassword = do
  updatedRows <-
    updateCount $ \accountUidpwd -> do
      set accountUidpwd [AccountUidpwdPassword =. val (hash hashedPassword)]
      where_ ((accountUidpwd ^. AccountUidpwdAccountId) ==. val userId)
  case updatedRows of
    0 -> return Nothing
    1 -> get (AccountKey userId)