33dccf5822
Less to migrate, less to maintain, and I'll never swap these out as components; might as well get the ease of managing them all in one project.
31 lines
1.1 KiB
Forth
31 lines
1.1 KiB
Forth
module MyWebLog.Data.RethinkDB.User
|
|
|
|
open MyWebLog.Entities
|
|
open RethinkDb.Driver.Ast
|
|
|
|
let private r = RethinkDb.Driver.RethinkDB.R
|
|
|
|
/// Log on a user
|
|
// NOTE: The significant length of a RethinkDB index is 238 - [PK size]; as we're storing 1,024 characters of password,
|
|
// including it in an index does not get any performance gain, and would unnecessarily bloat the index. See
|
|
// http://rethinkdb.com/docs/secondary-indexes/java/ for more information.
|
|
let tryUserLogOn conn (email : string) (passwordHash : string) =
|
|
async {
|
|
let! user =
|
|
r.Table(Table.User)
|
|
.GetAll(email).OptArg("index", "UserName")
|
|
.Filter(ReqlFunction1 (fun u -> upcast u.["PasswordHash"].Eq passwordHash))
|
|
.RunResultAsync<User list> conn
|
|
return user |> List.tryHead
|
|
}
|
|
|> Async.RunSynchronously
|
|
|
|
/// Set a user's password
|
|
let setUserPassword conn (email : string) (passwordHash : string) =
|
|
async {
|
|
do! r.Table(Table.User)
|
|
.GetAll(email).OptArg("index", "UserName")
|
|
.Update(dict [ "PasswordHash", passwordHash ])
|
|
.RunResultAsync conn
|
|
}
|
|
|> Async.RunSynchronously |