Various improvements made while working on relwiki

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

diff --git a/src/lib/main.sml b/src/lib/main.sml
index 157afaa..84c47b3 100644 (file)
--- a/src/lib/main.sml
+++ b/src/lib/main.sml
@@ -29,6 +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.pushParams (map mapper cgiFields);
            Templates.beforeFn ();
            case args of