Expose JS API (#360)

laurentlb · Apr 22, 2024 · b1deefb · b1deefb
1 parent e12e162
commit b1deefb
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/SMBolero.Client/Main.fs b/SMBolero.Client/Main.fs
@@ -5,6 +5,7 @@ open Bolero
 open Bolero.Html
 open Bolero.Remoting.Client
 open Bolero.Templating.Client
+open Microsoft.JSInterop
 
 /// Routing endpoints definition.
 type Page =
@@ -60,6 +61,12 @@ let minify flags content =
 
     out.ToString(), ShaderMinifier.getSize shaders, withLoc.ToString()
 
+module API =
+    [<JSInvokableAttribute("minify")>]
+    let minify flags content =
+        let result, _, _ = minify flags content
+        result
+
 let update (jsRuntime: Microsoft.JSInterop.IJSRuntime) message model =
     match message with
     | SetPage page ->