webapps.mason.report: padding around build report.

diff --git a/extra/webapps/mason/report/report.factor b/extra/webapps/mason/report/report.factor
index 6c7454fe3076691a03676732bcaaf66922f52392..3da57681258e701f8ff096ff4443d594246d9869 100644 (file)
--- a/extra/webapps/mason/report/report.factor
+++ b/extra/webapps/mason/report/report.factor
@@ -1,13 +1,16 @@
 ! Copyright (C) 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors furnace.actions http.server.responses kernel
-urls xml.syntax webapps.mason.backend webapps.mason.utils ;
+sequences urls xml.syntax webapps.mason.backend
+webapps.mason.utils ;
 IN: webapps.mason.report
 
 : build-report ( -- response )
     [
         current-builder [
-            last-report>> <html-content>
+            last-report>>
+            "<div style=\"padding: 10px;\">" "</div>" surround
+            <html-content>
         ] [ <404> ] if*
     ] with-mason-db ;