1
2
3
4
5
6
7
8
9
10
11
12
13

[<JavaScript>]
module Client =
    open WebSharper.JavaScript

    let Say (el: Dom.Element) (ev: Dom.MouseEvent) =
        JS.Alert "Hello"


module Site =
    open WebSharper.UI.Next.Html

    let Main =
        Application.SinglePage(fun _ -> Content.Page(Body = [ divAttr [ on.click <@ Client.Say @> ] [ text "click" ] ]))

1
2
3
4
5
6
7
8
9
10
11
12
13
14

System.TypeInitializationException: 
The type initializer for '.$Attr' threw an exception. ---> WebSharper.JavaScript.ClientSideOnly: This function is intended for client-side use only. 
at WebSharper.UI.Next.Client.Attr.OnAfterRender(FSharpFunc`2 callback) 
at .$Attr..cctor() --- End of inner exception stack trace --- 
at .$Attr.mk@109(FSharpList`1 acc, Address a) 
at .$Attr.func@103.Invoke(Info meta) 
at WebSharper.UI.Next.Attr.Write(Info meta, HtmlTextWriter w, Boolean removeDataHole) 
at .$Doc.Write@131-2.Invoke(Attr a) 
at Microsoft.FSharp.Primitives.Basics.List.iter[T](FSharpFunc`2 f, FSharpList`1 x) 
at WebSharper.UI.Next.Elt.Write(Info meta, HtmlTextWriter w, FSharpOption`1 res) 
at WebSharper.Sitelets.Content.renderBody@164.Invoke(HtmlTextWriter tw) 
at .$Page.get_Default@43.Invoke(FSharpOption`1 doctype, FSharpOption`1 title, FSharpFunc`2 writeHead, FSharpFunc`2 writeBody, HtmlTextWriter writer) 
at WebSharper.Sitelets.Content.writeBody@157.Invoke(Stream stream) 
at WebSharper.Owin.Internal.W2O.WriteResponse@164.Invoke(Task`1 obj)