Fix bug in browse-git example.

Trailing '/' in selector was not for burrower, it was for git!

diff --git a/examples/browse-git.scm b/examples/browse-git.scm
index a5d9e7f..f9cd019 100755 (executable)
--- a/examples/browse-git.scm
+++ b/examples/browse-git.scm
@@ -55,7 +55,8 @@
                 (list (if (eq? type 'tree) 1 0)
                       file
                       (conc "browse-git.scm|" type "|" repo "|" branch "|"
                 (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)
             entries))))
 
   (define (serve-blob)