add dig to anoia

pkgs/anoia/init.fnl

@@ -62,6 +62,12 @@
  (assert (not (table= {:a [4 5 6 7] } {:a [4 5 6 7 8]})))
  (assert (not (table= {:a [4 5 7 6] } {:a [4 5 6 7 ]}))))
 
+(fn dig [tree path]
+  (match path
+    [el & more] (dig (. tree el) more)
+    [el] (. tree el)
+    [] tree))
+
 (local
  base64-indices
  (doto [
@@ -103,6 +109,7 @@
  : assoc
  : base64url
  : basename
+ : dig
  : dirname
  : dup
  : file-exists?

pkgs/watch-outputs/watch-outputs.fnl

@@ -1,4 +1,4 @@
-(local { : system : assoc : split : table= } (require :anoia))
+(local { : system : assoc : split : table= : dig } (require :anoia))
 (local svc (require :anoia.svc))
 (local { : view } (require :fennel))
 (local { : kill } (require :lualinux))
@@ -22,12 +22,6 @@
                                 :paths (split-paths paths)
                                 }))
 
-(fn dig [tree path]
-  (match path
-    [el & more] (dig (. tree el) more)
-    [el] (. tree el)
-    [] tree))
-
 (fn changed? [paths old-tree new-tree]
   (accumulate [changed? false
                _ path (ipairs paths)]