bit-badger/myWebLog
1
0
Fork 0
Code Issues 4 Pull Requests Packages Projects Releases 11 Activity

Fixed casing

Browse Source 
Missed a few camel-to-Pascal case changes in document strings
This commit is contained in:
Daniel J. Summers 2016-08-04 08:04:50 -05:00
parent e7fcd1676f
commit 8194649018
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/myWebLog.Data/Post.fs
View File

@ -122,9 +122,9 @@ let tryFindPostByPermalink conn webLogId permalink =
/// Try to find a post by its prior permalink
let tryFindPostByPriorPermalink conn (webLogId : string) (permalink : string) =
r.Table(Table.Post)
.GetAll(webLogId).OptArg("index", "webLogId")
.Filter(fun p -> p.["priorPermalinks"].Contains(permalink).And(p.["status"].Eq(PostStatus.Published)))
.Without("revisions")
.GetAll(webLogId).OptArg("index", "WebLogId")
.Filter(fun p -> p.["PriorPermalinks"].Contains(permalink).And(p.["Status"].Eq(PostStatus.Published)))
.Without("Revisions")
.RunCursorAsync<Post>(conn)
|> await
|> Seq.tryHead

5
src/myWebLog.Data/SetUp.fs
View File

@ -55,12 +55,9 @@ let private ensureIndexes cfg (indexes : (string * (string * (ReqlExpr -> obj) o
indexes
|> List.iter ensureForTable
/// Create an index on a single field
let private singleField (name : string) : obj = upcast (fun row -> (row :> ReqlExpr).[name])
/// Create an index on web log Id and the given field
let private webLogField (name : string) : (ReqlExpr -> obj) option =
Some <| fun row -> upcast r.Array(row.["webLogId"], row.[name])
Some <| fun row -> upcast r.Array(row.["WebLogId"], row.[name])
/// Ensure all the required indexes exist
let private checkIndexes cfg =