   (try
     (let [repo-name (repo-name application environment)
           options {:force true}
-          response (data/edit-reference organisation repo-name "heads/master" commit options)]
+          response (data/edit-reference organisation repo-name "heads/master" commit (merge-options options))]
       (if (busted? response)
         (do
           (with-logging-context {:response response}

          date (fmt/unparse (fmt/formatters :date-time-no-ms) (time/now))
          info {:date date :email "mixradiobot@gmail.com" :name "Mix Radio Bot"}
          options {:author info :committer info :parents []}
          response (data/create-commit organisation repo-name "Initial commit" tree options)]
      (if (busted? response)
        (do
          (with-logging-context {:response response}

(defn- github-working?
  []
  (try
    (let [response (repos/org-repos organisation github-options)]
      (not (busted? response)))
    (catch Exception e
      false)))
