Skip to content

Instantly share code, notes, and snippets.

@jobjo
Created August 26, 2011 12:29
Show Gist options
  • Select an option

  • Save jobjo/1173304 to your computer and use it in GitHub Desktop.

Select an option

Save jobjo/1173304 to your computer and use it in GitHub Desktop.
type MyControl() =
inherit IntelliFactory.WebSharper.Web.Control ()
[<JavaScript>]
override this.Body =
let inpCtrl str =
Controls.Input str
|> Enhance.WithSubmitButton
|> Enhance.WithFormContainer
let rec myInp (str:string) : Formlet<string> =
Formlet.Do {
let! x = inpCtrl str
return! myInp (x + "1")
}
myInp "hello"
|> Formlet.Flowlet
:> IPagelet
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment