diff --git a/main.scm b/main.scm
index 6faf4b0..08566af 100755
--- a/main.scm
+++ b/main.scm
@@ -180,20 +180,6 @@ string-block
   (unless (in-git-directory?)
     (bail 1 "woops that's not a bare git directory"))
 
-  (let ((head-ref (call-with-input-pipe "git symbolic-ref -q HEAD" read-line)))
-
-    (when (null? head-ref)
-      (bail 1 "no HEAD reference is set"))
-
-    ;; loop over the changed refs
-    ;; if the HEAD ref is changed, generate html for it
-    ((flip for-each)
-     (read-lines)
-     (lambda (line)
-       ;; isn't there a better way to destructure a list?
-       ;; egg 'matchable' has match-let
-       (let-values (((before after ref) (apply values (string-split line))))
-         (when (equal? ref head-ref)
-           (generate-html-files)))))))
+  (generate-html-files))
 
 (main (command-line-arguments))