aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bom.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/bom.el b/bom.el
index 710aa4d..1c2b79a 100644
--- a/bom.el
+++ b/bom.el
@@ -124,7 +124,9 @@ Used as parentfn for hierarchy."
"Call BOM API and return hierarchy of VIC areas with forecasts."
(let ((areas (hierarchy-new)))
(hierarchy-add-trees
- bom-area-hierarchy (bom-get-areas (bom-api-vic)) 'bom-area-parent)
+ bom-area-hierarchy
+ (setq bom-areas (bom-get-areas (bom-api-vic)))
+ 'bom-area-parent)
(hierarchy-sort bom-area-hierarchy 'bom-area-lessp)
areas))