Added recurrence SQL; updated API

API should support recurrence (#16); also updated for new F# match! statement

src/api/MyPrayerJournal.Api/Data.fs

@@ -88,7 +88,7 @@ module Entities =
           m.Property(fun e -> e.notes).IsRequired () |> ignore)
       |> ignore
 
-  // Request is the identifying record for a prayer request.
+  /// Request is the identifying record for a prayer request
   and [<CLIMutable; NoComparison; NoEquality>] Request =
     { /// The ID of the request
       requestId    : RequestId
@@ -96,8 +96,14 @@ module Entities =
       enteredOn    : int64
       /// The ID of the user to whom this request belongs ("sub" from the JWT)
       userId       : string
-      /// The time that this request should reappear in the user's journal
+      /// The time at which this request should reappear in the user's journal by manual user choice
       snoozedUntil : int64
+      /// The time at which this request should reappear in the user's journal by recurrence
+      showAfter    : int64
+      /// The type of recurrence for this request
+      recurType    : string
+      /// How many of the recurrence intervals should occur between appearances in the journal
+      recurCount   : int16
       /// The history entries for this request
       history      : ICollection<History>
       /// The notes for this request
@@ -110,6 +116,9 @@ module Entities =
         enteredOn    = 0L
         userId       = ""
         snoozedUntil = 0L
+        showAfter    = 0L
+        recurType    = "immediate"
+        recurCount   = 0s
         history      = List<History> ()
         notes        = List<Note> ()
         }
@@ -123,6 +132,9 @@ module Entities =
           m.Property(fun e -> e.enteredOn).IsRequired () |> ignore
           m.Property(fun e -> e.userId).IsRequired () |> ignore
           m.Property(fun e -> e.snoozedUntil).IsRequired () |> ignore
+          m.Property(fun e -> e.showAfter).IsRequired () |> ignore
+          m.Property(fun e -> e.recurType).IsRequired() |> ignore
+          m.Property(fun e -> e.recurCount).IsRequired() |> ignore
           m.HasMany(fun e -> e.history :> IEnumerable<History>)
             .WithOne()
             .HasForeignKey(fun e -> e.requestId :> obj)
@@ -149,6 +161,12 @@ module Entities =
       lastStatus   : string
       /// The time that this request should reappear in the user's journal
       snoozedUntil : int64
+      /// The time after which this request should reappear in the user's journal by configured recurrence
+      showAfter    : int64
+      /// The type of recurrence for this request
+      recurType    : string
+      /// How many of the recurrence intervals should occur between appearances in the journal
+      recurCount   : int16
       /// History entries for the request
       history      : History list
       /// Note entries for the request
@@ -236,8 +254,7 @@ type AppDbContext (opts : DbContextOptions<AppDbContext>) =
   /// Retrieve notes for a request by its ID and user ID
   member this.NotesById reqId userId =
     task {
-      let! req = this.TryRequestById reqId userId
+      match! this.TryRequestById reqId userId with
-      match req with
       | Some _ -> return this.Notes.AsNoTracking().Where(fun n -> n.requestId = reqId) |> List.ofSeq
       | None -> return []
       }
@@ -252,16 +269,15 @@ type AppDbContext (opts : DbContextOptions<AppDbContext>) =
   /// Retrieve a request, including its history and notes, by its ID and user ID
   member this.TryCompleteRequestById requestId userId =
     task {
-      let! req = this.TryJournalById requestId userId
+      match! this.TryJournalById requestId userId with
-      match req with
+      | Some req ->
-      | Some r ->
           let! fullReq =
             this.Requests.AsNoTracking()
               .Include(fun r -> r.history)
               .Include(fun r -> r.notes)
               .FirstOrDefaultAsync(fun r -> r.requestId = requestId && r.userId = userId)
           match toOption fullReq with
-          | Some _ -> return Some { r with history = List.ofSeq fullReq.history; notes = List.ofSeq fullReq.notes }
+          | Some _ -> return Some { req with history = List.ofSeq fullReq.history; notes = List.ofSeq fullReq.notes }
           | None -> return None
       | None -> return None
       }
@@ -269,15 +285,14 @@ type AppDbContext (opts : DbContextOptions<AppDbContext>) =
   /// Retrieve a request, including its history, by its ID and user ID
   member this.TryFullRequestById requestId userId =
     task {
-      let! req = this.TryJournalById requestId userId
+      match! this.TryJournalById requestId userId with
-      match req with
+      | Some req ->
-      | Some r ->
           let! fullReq =
             this.Requests.AsNoTracking()
               .Include(fun r -> r.history)
               .FirstOrDefaultAsync(fun r -> r.requestId = requestId && r.userId = userId)
           match toOption fullReq with
-          | Some _ -> return Some { r with history = List.ofSeq fullReq.history }
+          | Some _ -> return Some { req with history = List.ofSeq fullReq.history }
           | None -> return None
       | None -> return None
       }

src/api/MyPrayerJournal.Api/Handlers.fs

@@ -6,6 +6,14 @@ open Giraffe
 open MyPrayerJournal
 open System
 
+/// Handler to return Vue files
+module Vue =
+  
+  /// The application index page
+  let app : HttpHandler = htmlFile "wwwroot/index.html"
+
+
+/// Handlers for error conditions
 module Error =
 
   open Microsoft.Extensions.Logging
@@ -23,7 +31,7 @@ module Error =
       |> List.length
       |> function
       | 0 -> (setStatusCode 404 >=> json ([ "error", "not found" ] |> dict)) next ctx
-      | _ -> htmlFile "wwwroot/index.html" next ctx
+      | _ -> Vue.app next ctx
 
 
 /// Handler helpers
@@ -92,6 +100,10 @@ module Models =
   type Request =
     { /// The text of the request
       requestText : string
+      /// The recurrence type
+      recurType   : string
+      /// The recurrence count
+      recurCount  : int16 option
       }
   
   /// The time until which a request should not appear in the journal
@@ -119,6 +131,15 @@ module Request =
   
   open NCuid
   
+  /// Ticks per recurrence
+  let private recurrence =
+    [ "immediate",         0L
+      "hours",       3600000L
+      "days",       86400000L
+      "weeks",     604800000L
+      ]
+    |> Map.ofList
+
   /// POST /api/request
   let add : HttpHandler =
     authorize
@@ -133,7 +154,9 @@ module Request =
             requestId  = reqId
             userId     = usrId
             enteredOn  = now
-            snoozedUntil = 0L
+            showAfter  = now
+            recurType  = r.recurType
+            recurCount = defaultArg r.recurCount 0s
           }
         |> db.AddEntry
         { History.empty with
@@ -144,9 +167,8 @@ module Request =
             }
         |> db.AddEntry
         let! _   = db.SaveChangesAsync ()
-        let! req = db.TryJournalById reqId usrId
+        match! db.TryJournalById reqId usrId with
-        match req with
+        | Some req -> return! (setStatusCode 201 >=> json req) next ctx
-        | Some rqst -> return! (setStatusCode 201 >=> json rqst) next ctx
         | None -> return! Error.notFound next ctx
         }
 
@@ -156,17 +178,21 @@ module Request =
     >=> fun next ctx ->
       task {
         let db = db ctx
-        let! req = db.TryRequestById reqId (userId ctx)
+        match! db.TryRequestById reqId (userId ctx) with
-        match req with
+        | Some req ->
-        | Some _ ->
             let! hist = ctx.BindJsonAsync<Models.HistoryEntry> ()
+            let  now  = jsNow ()
             { History.empty with
                 requestId = reqId
-                asOf      = jsNow ()
+                asOf      = now
                 status    = hist.status
                 text      = match hist.updateText with null | "" -> None | x -> Some x
               }
             |> db.AddEntry
+            match hist.status with
+            | "Prayed" ->
+                db.UpdateEntry { req with showAfter = now + (recurrence.[req.recurType] * int64 req.recurCount) }
+            | _ -> ()
             let! _ = db.SaveChangesAsync ()
             return! created next ctx
         | None -> return! Error.notFound next ctx
@@ -178,8 +204,7 @@ module Request =
     >=> fun next ctx ->
       task {
         let db = db ctx
-        let! req = db.TryRequestById reqId (userId ctx)
+        match! db.TryRequestById reqId (userId ctx) with
-        match req with
         | Some _ ->
             let! notes = ctx.BindJsonAsync<Models.NoteEntry> ()
             { Note.empty with
@@ -206,9 +231,8 @@ module Request =
     authorize
     >=> fun next ctx ->
       task {
-        let! req = (db ctx).TryJournalById reqId (userId ctx)
+        match! (db ctx).TryJournalById reqId (userId ctx) with
-        match req with
+        | Some req -> return! json req next ctx
-        | Some r -> return! json r next ctx
         | None -> return! Error.notFound next ctx
         }
   
@@ -217,9 +241,8 @@ module Request =
     authorize
     >=> fun next ctx ->
       task {
-        let! req = (db ctx).TryCompleteRequestById reqId (userId ctx)
+        match! (db ctx).TryCompleteRequestById reqId (userId ctx) with
-        match req with
+        | Some req -> return! json req next ctx
-        | Some r -> return! json r next ctx
         | None -> return! Error.notFound next ctx
         }
   
@@ -228,9 +251,8 @@ module Request =
     authorize
     >=> fun next ctx ->
       task {
-        let! req = (db ctx).TryFullRequestById reqId (userId ctx)
+        match! (db ctx).TryFullRequestById reqId (userId ctx) with
-        match req with
+        | Some req -> return! json req next ctx
-        | Some r -> return! json r next ctx
         | None -> return! Error.notFound next ctx
         }
   
@@ -249,11 +271,10 @@ module Request =
     >=> fun next ctx ->
       task {
         let db = db ctx
-        let! req = db.TryRequestById reqId (userId ctx)
+        match! db.TryRequestById reqId (userId ctx) with
-        match req with
+        | Some req ->
-        | Some r ->
             let! until = ctx.BindJsonAsync<Models.SnoozeUntil> ()
-            { r with snoozedUntil = until.until }
+            { req with snoozedUntil = until.until; showAfter = until.until }
             |> db.UpdateEntry
             let! _ = db.SaveChangesAsync ()
             return! setStatusCode 204 next ctx

src/api/MyPrayerJournal.Api/Program.fs

@@ -53,7 +53,7 @@ module Configure =
   /// Routes for the available URLs within myPrayerJournal
   let webApp =
     router Handlers.Error.notFound [
-      route "/" (htmlFile "wwwroot/index.html")
+      route "/" Handlers.Vue.app
       subRoute "/api/" [
         GET [
           route    "journal" Handlers.Journal.journal

src/sql/16-recurrence.sql

@@ -0,0 +1,31 @@
+ALTER TABLE mpj.request
+  ADD COLUMN "showAfter" BIGINT NOT NULL DEFAULT 0;
+ALTER TABLE mpj.request
+  ADD COLUMN "recurType" VARCHAR(10) NOT NULL DEFAULT 'immediate';
+ALTER TABLE mpj.request
+  ADD COLUMN "recurCount" SMALLINT NOT NULL DEFAULT 0;
+CREATE OR REPLACE VIEW mpj.journal AS
+  SELECT
+    request."requestId",
+    request."userId",
+    (SELECT "text"
+       FROM mpj.history
+      WHERE history."requestId" = request."requestId"
+        AND "text" IS NOT NULL
+      ORDER BY "asOf" DESC
+      LIMIT 1) AS "text",
+    (SELECT "asOf"
+       FROM mpj.history
+      WHERE history."requestId" = request."requestId"
+      ORDER BY "asOf" DESC
+      LIMIT 1) AS "asOf",
+    (SELECT "status"
+       FROM mpj.history
+      WHERE history."requestId" = request."requestId"
+      ORDER BY "asOf" DESC
+      LIMIT 1) AS "lastStatus",
+    request."snoozedUntil",
+    request."showAfter",
+    request."recurType",
+    request."recurCount"
+  FROM mpj.request;