gitile

Fix unbound variable

Julien LepillerSun Mar 07 14:25:36+0100 2021

1bfaf5b

Fix unbound variable

gitile/pages.scm

                                                "/commit/" ,(oid->string
                                                              (commit-id commit))))
                                       ,(commit-message commit)))
                                (td ,(commit->date-string commit))))))
                                (td ,(time->date-string (commit-time commit)))))))
                      files))))))))
 (define get-config-string
     (($ <mytag> name message target time)
      `(div (@ (class "tag-box"))
            (div (@ (class "tag"))
                 (p (a (@ (href ,repository-name "/tree/" ,target)) ,name))
                 (p (span (@ (class "date"))
                 (p (@ (class "tag-name"))
                    (a (@ (href ,repository-name "/tree/" ,target)) ,name))
                 (p (span (@ (class "author")))
                    (span (@ (class "date"))
                          ,(time->date-string time))))
            (p ,message)))))