Minor fix: bom-area-parent requires bom-areas

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))