module App open Browser.Dom // Get a reference to our button and cast the Element to an HTMLButtonElement let myButton = document .querySelector ( ".my-button" ) :?> Browser .Types.HTMLButtonElement let count = Event < int >() let counter = MailboxProcessor < int > .Start (fun inbox -> let rec loop n = async { do ! Async .Sleep ( 1000 ) let seconds = n + 1 count .Trigger seconds return ! loop seconds } loop 0 ) let displ = count .Publish.Subscribe (fun e -> myButton .innerHTML <- sprintf "<h1> %A </h1>" e ) counter .Start () myButton .onclick <- fun _ -> console .log ( "OK" )
t.me/perfect0sight