From 0d47d10cfe4ed7fb8ea7b8013b6593c868be8391 Mon Sep 17 00:00:00 2001
From: Yuchen Pei <hi@ypei.me>
Date: Wed, 21 Sep 2022 14:22:37 +1000
Subject: fixing a renamed function

---
 hcel-client.el  | 11 ++++++-----
 hcel-outline.el |  2 +-
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/hcel-client.el b/hcel-client.el
index 5ec6055..775d878 100644
--- a/hcel-client.el
+++ b/hcel-client.el
@@ -38,14 +38,15 @@
      packages)))
 
 (defun hcel-api-package-info (package-id)
+  (hcel-url-fetch-json (concat
+                        hcel-host "/files/" (hcel-format-package-id package-id "-")
+                        hcel-indexed-dir "/packageInfo.json")))
+
+(defun hcel-list-modules (package-id)
   (mapcar
    (lambda (tuple)
      (prin1-to-string (car tuple) t))
-   (alist-get
-    'modules
-    (hcel-url-fetch-json (concat
-                     hcel-host "/files/" (hcel-format-package-id package-id "-")
-                     hcel-indexed-dir "/packageInfo.json")))))
+   (alist-get 'modules (hcel-api-package-info package-id))))
 
 (defun hcel-api-definition-site
     (package-id component-id module-name entity name)
diff --git a/hcel-outline.el b/hcel-outline.el
index 4cfa6ce..c40ccf1 100644
--- a/hcel-outline.el
+++ b/hcel-outline.el
@@ -116,7 +116,7 @@ update in the outline mode too."
                         'package-id package-id
                         'module-path module
                         'folded t)))
-         (hcel-api-package-info package-id))))))
+         (hcel-list-modules (print package-id)))))))
 
 (defun hcel-outline-toggle-children ()
   (interactive)
-- 
cgit v1.2.3