Add group, WIP on role (#17)

src/MyWebLog/Handlers/Upload.fs

@@ -91,7 +91,7 @@ let makeSlug it = (Regex """\s+""").Replace((Regex "[^A-z0-9 -]").Replace(it, ""
 
 // GET /admin/uploads
 let list : HttpHandler =
-    requireAccess Author
+    requireAccess ContentAuthor
     >=> fun next ctx -> task {
         let  webLog      = ctx.WebLog
         let! dbUploads   = ctx.Data.Upload.FindByWebLog webLog.Id
@@ -127,12 +127,12 @@ let list : HttpHandler =
 
 // GET /admin/upload/new
 let showNew : HttpHandler =
-    requireAccess Author
+    requireAccess ContentAuthor
     >=> fun next ctx -> adminPage "Upload a File" next ctx Views.WebLog.uploadNew
 
 // POST /admin/upload/save
 let save : HttpHandler =
-    requireAccess Author
+    requireAccess ContentAuthor
     >=> validateCsrf
     >=> fun next ctx -> task {
         if ctx.Request.HasFormContentType && ctx.Request.Form.Files.Count > 0 then