Combined all F# code into one project

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.

src/MyWebLog.App/Data/User.fs

@@ -0,0 +1,31 @@
+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