-- © 2001, 2002 Peter Thiemann module Main where import Prelude hiding (map, span, head, div) import CGI main = run $ counter 0 dialog = "dialog" counter n = standardQuery "Counter" $
>Current counter value <% text (show n) %>
<% submit0 (counter (n + 1)) <[value="Increment"]> %>
<% submit0 (counter (n - 1)) <[value="Decrement"]> %>