fix merge order
This commit is contained in:
parent
ccf27e641d
commit
5ac6cfbcf3
2 changed files with 3 additions and 2 deletions
|
@ -83,7 +83,7 @@
|
|||
cp-resource-map (if from-cp
|
||||
(apply merge (map virtual-path-map (cp/get-resources base-path paths)))
|
||||
{})
|
||||
resulting-map (merge fs-resource-map cp-resource-map)]
|
||||
resulting-map (merge cp-resource-map fs-resource-map)]
|
||||
(if (empty? resulting-map)
|
||||
[]
|
||||
(vals resulting-map))))
|
||||
|
|
|
@ -521,7 +521,8 @@
|
|||
klipsified-pages (map klipsify (read-pages config))
|
||||
modelled-pages (cond
|
||||
(= page-model :flat) klipsified-pages
|
||||
(= page-model :hierarchic) (hierarchic/build-hierarchic-map page-root-uri klipsified-pages))
|
||||
(= page-model :hierarchic)
|
||||
(hierarchic/build-hierarchic-map page-root-uri klipsified-pages))
|
||||
home-page (->> modelled-pages
|
||||
(filter #(boolean (:home? %)))
|
||||
(first))
|
||||
|
|
Loading…
Reference in a new issue