Completed recurrence work (#16)

Requests can now:
- be entered with recurrence
- be updated with recurrence
- manually skip recurrence period

Also did an app-wide clean-up to ensure that everything is done the same way in all places

src/api/MyPrayerJournal.Api/Data.fs

@@ -245,7 +245,7 @@ type AppDbContext (opts : DbContextOptions<AppDbContext>) =
       .OrderBy(fun r -> r.asOf)
   
   /// Retrieve a request by its ID and user ID
-  member this.TryRequestById reqId userId : Task<Request option> =
+  member this.TryRequestById reqId userId =
     task {
       let! req = this.Requests.AsNoTracking().FirstOrDefaultAsync(fun r -> r.requestId = reqId && r.userId = userId)
       return toOption req

src/api/MyPrayerJournal.Api/Handlers.fs

@@ -95,6 +95,15 @@ module Models =
       notes : string
       }
   
+  /// Recurrence update
+  [<CLIMutable>]
+  type Recurrence =
+    { /// The recurrence type
+      recurType  : string
+      /// The recurrence cound
+      recurCount : int16
+      }
+
   /// A prayer request
   [<CLIMutable>]
   type Request =
@@ -103,9 +112,16 @@ module Models =
       /// The recurrence type
       recurType   : string
       /// The recurrence count
-      recurCount  : int16 option
+      recurCount  : int16
       }
   
+  /// Reset the "showAfter" property on a request
+  [<CLIMutable>]
+  type Show =
+    { /// The time after which the request should appear
+      showAfter : int64
+      }
+
   /// The time until which a request should not appear in the journal
   [<CLIMutable>]
   type SnoozeUntil =
@@ -156,7 +172,7 @@ module Request =
             enteredOn  = now
             showAfter  = now
             recurType  = r.recurType
-            recurCount = defaultArg r.recurCount 0s
+            recurCount = r.recurCount
           }
         |> db.AddEntry
         { History.empty with
@@ -255,7 +271,23 @@ module Request =
         return! json notes next ctx
         }
   
-  /// POST /api/request/[req-id]/snooze
+  /// PATCH /api/request/[req-id]/show
+  let show reqId : HttpHandler =
+    authorize
+    >=> fun next ctx ->
+      task {
+        let db = db ctx
+        match! db.TryRequestById reqId (userId ctx) with
+        | Some req ->
+            let! show = ctx.BindJsonAsync<Models.Show> ()
+            { req with showAfter = show.showAfter }
+            |> db.UpdateEntry
+            let! _ = db.SaveChangesAsync ()
+            return! setStatusCode 204 next ctx
+        | None -> return! Error.notFound next ctx
+        }
+  
+  /// PATCH /api/request/[req-id]/snooze
   let snooze reqId : HttpHandler =
     authorize
     >=> fun next ctx ->
@@ -270,3 +302,19 @@ module Request =
             return! setStatusCode 204 next ctx
         | None -> return! Error.notFound next ctx
         }
+
+  /// PATCH /api/request/[req-id]/recurrence
+  let updateRecurrence reqId : HttpHandler =
+    authorize
+    >=> fun next ctx ->
+      task {
+        let db = db ctx
+        match! db.TryRequestById reqId (userId ctx) with
+        | Some req ->
+            let! recur = ctx.BindJsonAsync<Models.Recurrence> ()
+            { req with recurType = recur.recurType; recurCount = recur.recurCount }
+            |> db.UpdateEntry
+            let! _ = db.SaveChangesAsync ()
+            return! setStatusCode 204 next ctx
+        | None -> return! Error.notFound next ctx
+        }

src/api/MyPrayerJournal.Api/Program.fs

@@ -58,10 +58,17 @@ module Configure =
         GET [
           route    "journal" Handlers.Journal.journal
           subRoute "request" [
-            route  "s/answered"   Handlers.Request.answered
-            routef "/%s/full"     Handlers.Request.getFull
-            routef "/%s/notes"    Handlers.Request.getNotes
-            routef "/%s"          Handlers.Request.get
+            route  "s/answered" Handlers.Request.answered
+            routef "/%s/full"   Handlers.Request.getFull
+            routef "/%s/notes"  Handlers.Request.getNotes
+            routef "/%s"        Handlers.Request.get
+            ]
+          ]
+        PATCH [
+          subRoute "request" [
+            routef "/%s/recurrence" Handlers.Request.updateRecurrence
+            routef "/%s/show"       Handlers.Request.show
+            routef "/%s/snooze"     Handlers.Request.snooze
             ]
           ]
         POST [
@@ -69,7 +76,6 @@ module Configure =
             route  ""            Handlers.Request.add
             routef "/%s/history" Handlers.Request.addHistory
             routef "/%s/note"    Handlers.Request.addNote
-            routef "/%s/snooze"  Handlers.Request.snooze
             ]
           ]
         ]