From: Tim Vaughan <tgvaughan@gmail.com>
Date: Fri, 31 May 2019 22:26:53 +0000 (+0200)
Subject: Fix bug in browse-git example.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=6b465462acb32e21a55623d906dd338983131b2d;p=scratchy.git

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
--- 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 "|"
-                            file-path))))
+                            file-path
+                            (if (eq? type 'tree) "/" "")))))
             entries))))
 
   (define (serve-blob)