Fix request ID generation (#72)

- Bump version
2022-08-23 08:36:17 -04:00
parent d621ede7bb
commit 8702723e01
4 changed files with 10 additions and 6 deletions
--- a/src/MyPrayerJournal/Handlers.fs
+++ b/src/MyPrayerJournal/Handlers.fs
@@ -318,7 +318,9 @@ module Legal =

 /// /api/request and /request(s) URLs
 module Request =
-
+    
+    open Cuid
+    
    // GET /request/[req-id]/edit  
    let edit requestId : HttpHandler = requireUser >=> fun next ctx -> task {
        let returnTo =
@@ -461,6 +463,7 @@ module Request =
        let  now    = ctx.Now ()
        let  req    =
            { Request.empty with
+                Id         = Cuid.generate () |> RequestId
                UserId     = userId
                EnteredOn  = now
                ShowAfter  = None