From 6fde1c76377956eceb036b6ef7b2689a53e9b513 Mon Sep 17 00:00:00 2001 From: Tom Faulhaber Date: Wed, 10 Nov 2010 09:32:19 -0800 Subject: [PATCH] Make sure we put the json index in thee right subdirectory --- src/autodoc/build_html.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/autodoc/build_html.clj b/src/autodoc/build_html.clj index b3bdda3..afee843 100644 --- a/src/autodoc/build_html.clj +++ b/src/autodoc/build_html.clj @@ -481,9 +481,9 @@ vars in ns-info that begin with that letter" [ns-info branch-info] (when (params :build-json-index) (with-open [out (writer (file (params :output-path) - (when (:first? branch-info) - (branch-subdir (:name branch-info))) - *index-json-file*))] + (str (when (not (:first? branch-info)) + (str (branch-subdir (:name branch-info)) "/")) + *index-json-file*)))] (binding [*out* out] (pprint-json (structured-index ns-info (:name branch-info)))))))