Fix bug in browse-git example.
authorTim Vaughan <tgvaughan@gmail.com>
Fri, 31 May 2019 22:26:53 +0000 (00:26 +0200)
committerTim Vaughan <tgvaughan@gmail.com>
Fri, 31 May 2019 22:30:36 +0000 (00:30 +0200)
Trailing '/' in selector was not for burrower, it was for git!

examples/browse-git.scm

index a5d9e7f..f9cd019 100755 (executable)
@@ -55,7 +55,8 @@
                 (list (if (eq? type 'tree) 1 0)
                       file
                       (conc "browse-git.scm|" type "|" repo "|" branch "|"
-                            file-path))))
+                            file-path
+                            (if (eq? type 'tree) "/" "")))))
             entries))))
 
   (define (serve-blob)