From c5396d65a8f766266b81b58acb7b1a457e7491a2 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bruce@bruce-hill.com>
Date: Mon, 16 Sep 2024 13:54:47 -0400
Subject: Fix up tomodeps

---
 examples/tomodeps/tomodeps.tm | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

(limited to 'examples')

diff --git a/examples/tomodeps/tomodeps.tm b/examples/tomodeps/tomodeps.tm
index e3354136..c1f21775 100644
--- a/examples/tomodeps/tomodeps.tm
+++ b/examples/tomodeps/tomodeps.tm
@@ -1,9 +1,9 @@
 # Show a Tomo dependency graph
 
-_USAGE := "Usage: dependencies <files...>"
+_USAGE := "Usage: tomodeps <files...>"
 
 _HELP := "
-    dependencies: Show a file dependency graph for Tomo source files.
+    tomodeps: Show a file dependency graph for Tomo source files.
     $_USAGE
 "
 
@@ -33,19 +33,10 @@ func _build_dependency_graph(dep:Dependency, dependencies:&{Dependency:{Dependen
     dep_deps := when dep is File(path):
         _get_file_dependencies(path)
     is Module(module):
-        files_path := (~/.local/src/tomo/$module/lib$module.files):resolved()
-        if not files_path:is_file():
-            !! Could not read file: $files_path
-            return
-
-        unvisited := {:Path}
-        if lines := files_path:by_line():
-            for line in lines:
-                tm_path := Path.from_unsafe_text(line):resolved(relative_to=(~/.local/src/tomo/$module/))
-                unvisited:add(tm_path)
-
+        dir := (~/.local/share/tomo/installed/$module)
         module_deps := {:Dependency}
         visited := {:Path}
+        unvisited := {f:resolved() for f in dir:files() if f.text_content:ends_with(".tm")}
         while unvisited.length > 0:
             file := unvisited.items[-1]
             unvisited:remove(file)
-- 
cgit v1.2.3