structure Response :> RESPONSE = struct
	type response = {
		title : string,
		body : Web.html,
		css : string list
	}

	fun new (title, body) : response = {title = title, body = body, css = []}

	fun addCss {title, body, css} newCss =
		{title = title, body = body, css = newCss::css}

	fun render resp = TPage.render (addCss resp "static/page.css")
end

structure Response :> RESPONSE = struct
	type response = {
		title : string,
		body : Web.html,
		css : string list
	}

	fun new (title, body) : response = {title = title, body = body, css = []}

	fun addCss {title, body, css} newCss =
		{title = title, body = body, css = newCss::css}

	val cssBase = "http://sfbprofiler.jwatzman.org:8080/"

	fun render {title, body, css} =
		TPage.render {
			title = title,
			body = body,
			css = map (fn c => cssBase ^ c) ("static/page.css"::css)
		}
end

Prepend URL base to CSS
Prepend URL base to CSS

Doesn't work so well as-is since we can be on an arbitrary relative path
