Changed handling of response headers to allow multiple values; added documentation...

[bpt/mlt.git] / src / lib / main.sml

diff --git a/src/lib/main.sml b/src/lib/main.sml
index 84c47b3..139686a 100644 (file)
--- a/src/lib/main.sml
+++ b/src/lib/main.sml
@@ -29,7 +29,7 @@ struct
            val cgiFields = Cgi.cgi_fieldnames ()
            fun mapper name = (name, Cgi.cgi_field_strings name)
        in
-           Web.setHeader ("Content-type", "text/html");
+           Web.addHeader ("Content-type", "text/html");
            Web.pushParams (map mapper cgiFields);
            Templates.beforeFn ();
            case args of