Add WorkerNavigator class on Main.fs

dotnet-websharper · Feb 24, 2025 · bcfc944 · bcfc944
1 parent 75a534f
commit bcfc944
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/WebSharper.Permissions/Main.fs b/WebSharper.Permissions/Main.fs
@@ -31,7 +31,7 @@ module Definition =
             "name" =? T<string>
             "state" =? PermissionState.Type
 
-            "onchange" =@ T<unit> ^-> T<unit>
+            "onchange" =@ T<Dom.Event> ^-> T<unit>
         ]
 
     let Permissions =
@@ -46,9 +46,16 @@ module Definition =
             "permissions" =? Permissions
         ]
 
+    let WorkerNavigator =
+        Class "WorkerNavigator"
+        |+> Instance [
+            "permissions" =? Permissions
+        ]
+
     let Assembly =
         Assembly [
             Namespace "WebSharper.Permissions" [
+                WorkerNavigator
                 Navigator
                 Permissions
                 PermissionStatus