Fix order of execution bug in html_response

ncough · Nov 17, 2017 · d5515a1 · d5515a1
1 parent aee3bf1
commit d5515a1
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/serverLib.sml b/serverLib.sml
@@ -837,9 +837,11 @@ in
 
   fun html_response req =
     let
-      val () = TextIO.output(TextIO.stdOut, html_response_header)
-      val () = TextIO.output(TextIO.stdOut, html ([header,body (req_body req)]))
-    in () end
+      val result = html ([header,body (req_body req)]) (* catch errors first *)
+    in
+      TextIO.output(TextIO.stdOut, html_response_header);
+      TextIO.output(TextIO.stdOut, result)
+    end
 
 end