Make sure we put the json index in thee right subdirectory

zamaterian · Nov 10, 2010 · 6fde1c7 · 6fde1c7
1 parent e639bec
commit 6fde1c7
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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)))))))