             (println e))))
 
 (defn record-job-results
-    [job-name repo-url branch datetime results]
+    [job-name repo-url branch datetime results html]
     (try
         (jdbc/insert! db-spec/emender-service-db
-                      :results {:job job-name :datetime datetime :url repo-url :branch branch :results results})
+                      :results {:job job-name :datetime datetime :url repo-url :branch branch :results results :html html})
         (catch Exception e
             (println e))))
 

     (log-job-finished job-name nil nil)))

(defn log-job-results
    ([job-name repo-url branch results]
     (let [formatted-date (format-date/format-current-date)]
         (record-job-operation-event job-name repo-url branch formatted-date "results")
         (record-job-results job-name repo-url branch formatted-date results)))
    ([job-name results]
     (log-job-results job-name nil nil results)))


            (println e)
            [])))

(defn read-html-results-for-job-id
    [job-id]
    (try
        (:html (first
            (jdbc/query db-spec/emender-service-db
                        ["select html from results where id = ?" job-id])))
        (catch Exception e
            (println e)
            [])))

(defn record-error
    [job-name repo-url branch datetime message stacktrace]
    (try
