7c7
< :- pred main(io__state::di, io__state::uo) is det.
---
> :- pred main(io.state::di, io.state::uo) is det.
10c10
< :- import_module cgi, html, std_util, list, bool.
---
> :- import_module cgi, html, std_util, list, bool, maybe.
13c13
< my_url = "http://hydra.cs.mu.oz.au/cgi-bin/mercury/form_test".
---
> my_url = "http://localhost/cgi-bin/form_test".
15c15
< :- pred np(io__state::di, io__state::uo) is det.
---
> :- pred np(io.state::di, io.state::uo) is det.
17c17
< 	html__output_markup(np).
---
> 	html.output_markup(np).
20c20
< 	cgi__get_form(MaybeFormEntries),
---
> 	cgi.get_form(MaybeFormEntries),
24,26c24,26
< 		html__output_content_type_html,
< 		html__output_header([title(text("Form Test"))]),
< 		html__output_markup(heading(1, text("Fields Entered:"))),
---
> 		html.output_content_type_html,
> 		html.output_header([title(text("Form Test"))]),
> 		html.output_markup(heading(1, text("Fields Entered:"))),
32,42c32
< 		print("</pre>"),
< 		np,
< 		html__output_form_start(my_url),
< 		print("Name: "),
< 		html__output_field("name", text(60, 90, "")), np,
< 		print("Address: "),
< 		html__output_field("address", textarea(3, 60, "")), np,
< 		print("Bozo?"),
< 		html__output_field("bozo", checkbox(no, "yes")), np,
< 		html__output_field("submit", submit("OK")), np,
< 		html__output_form_end
---
> 		print("</pre>")
45c35,45
< 	).
---
> 	),
> 	np,
> 	html.output_form_start(my_url),
> 	print("Name: "),
> 	html.output_field("name", text(60, 90, "")), np,
> 	print("Address: "),
> 	html.output_field("address", textarea(3, 60, "")), np,
> 	print("Bozo?"),
> 	html.output_field("bozo", checkbox(no, "yes")), np,
> 	html.output_field("submit", submit("OK")), np,
> 	html.output_form_end.
