Add access levels (#19)

- Remove authorization level

src/MyWebLog/Handlers/User.fs

@@ -47,7 +47,7 @@ let doLogOn : HttpHandler = fun next ctx -> task {
             Claim (ClaimTypes.NameIdentifier, WebLogUserId.toString user.id)
             Claim (ClaimTypes.Name,           $"{user.firstName} {user.lastName}")
             Claim (ClaimTypes.GivenName,      user.preferredName)
-            Claim (ClaimTypes.Role,           user.authorizationLevel.ToString ())
+            Claim (ClaimTypes.Role,           AccessLevel.toString user.accessLevel)
         }
         let identity = ClaimsIdentity (claims, CookieAuthenticationDefaults.AuthenticationScheme)
 

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