From 0a8410d8b1e0f463e46deb0b22945697316c3dc8 Mon Sep 17 00:00:00 2001
From: Peter Bex <peter@more-magic.net>
Date: Sun, 20 Mar 2011 16:28:58 +0100
Subject: Add 'tags' subdir because henrietta expects it

---
 henrietta-cache.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/henrietta-cache.scm b/henrietta-cache.scm
index 9065650..9f37b64 100644
--- a/henrietta-cache.scm
+++ b/henrietta-cache.scm
@@ -88,7 +88,8 @@ EOF
                            (uri-template (cadr uri-info)))
                   (for-each
                    (lambda (egg-release)
-                     (let ((cache-dir (make-pathname egg-cache-dir egg-release)))
+                     (let ((cache-dir (make-pathname (list egg-cache-dir "tags")
+                                                     egg-release)))
                        (unless (file-exists? cache-dir)
                          (let* ((patterns `((egg-name . ,egg-name)
                                             (egg-release . ,egg-release)
-- 
cgit v1.2.3