createUidpwdUser :: UUID
                 -> UTCTime
                 -> Email
                 -> HashedPassword
                 -> SqlPersistM (Key Account)
createUidpwdUser uuid created email hashedPassword = do
  accountKey <- insert $ Account uuid created
  _ <-
    insert
      AccountUidpwd
      { accountUidpwdAccountId = unAccountKey accountKey
      , accountUidpwdEmail = email
      , accountUidpwdPassword = hash hashedPassword
      }
  return accountKey
createUidpwdUser :: UUID
                 -> UTCTime
                 -> Email
                 -> HashedPassword
                 -> SqlPersistM (Key Account)
createUidpwdUser uuid created email hashedPassword = do
  accountKey <- insert $ Account uuid created
  _ <-
    insert
      AccountUidpwd
      { accountUidpwdAccountId = unAccountKey accountKey
      , accountUidpwdEmail = email
      , accountUidpwdPassword = hash hashedPassword
      }
  return accountKey
createUidpwdUser uuid created email hashedPassword = do
  accountKey <- insert $ Account uuid created
  _ <-
    insert
      AccountUidpwd
      { accountUidpwdAccountId = unAccountKey accountKey
      , accountUidpwdEmail = email
      , accountUidpwdPassword = hash hashedPassword
      }
  return accountKey