Add access levels (#19)

- Remove authorization level
2022-07-16 15:51:58 -04:00
parent 07aff16c3a
commit 425223a3a8
7 changed files with 102 additions and 73 deletions
--- a/src/MyWebLog/Maintenance.fs
+++ b/src/MyWebLog/Maintenance.fs
@@ -40,15 +40,15 @@ let private doCreateWebLog (args : string[]) (sp : IServiceProvider) = task {
    
    do! data.WebLogUser.add 
            { WebLogUser.empty with
-                id                 = userId
-                webLogId           = webLogId
-                userName           = args[3]
-                firstName          = "Admin"
-                lastName           = "User"
-                preferredName      = "Admin"
-                passwordHash       = Handlers.User.hashedPassword args[4] args[3] salt
-                salt               = salt
-                authorizationLevel = Administrator
+                id            = userId
+                webLogId      = webLogId
+                userName      = args[3]
+                firstName     = "Admin"
+                lastName      = "User"
+                preferredName = "Admin"
+                passwordHash  = Handlers.User.hashedPassword args[4] args[3] salt
+                salt          = salt
+                accessLevel   = Administrator
            }

    // Create the default home page