 (defn index-of-specified-entry [host-seq]
     "Given a list of host specifiers, returns index of most specific one, or nil
     if none match"
-    (util/thread-until host-seq
-        (partial util/index-when fdqn-matches)
-        (partial util/index-when hostname-matches)
-        (partial util/index-when #(= "_default" %))))
+    (dutil/thread-until host-seq
+        (partial dutil/index-when fdqn-matches)
+        (partial dutil/index-when hostname-matches)
+        (partial dutil/index-when #(= "_default" %))))
 
 (defmulti explode-file seq?)
 (defmethod explode-file false [file-name]

    [dir-tree local-prefix]
    (if-let [meta-file (some #(when (basename-is? % "_meta.json") %) dir-tree)]
        [ (remove #(basename-is? % "_meta.json") dir-tree)
          (slurp (str local-prefix (meta-file :full-name))) ]
        [ dir-tree "{}" ]))

(def test-tree
    (->> (specify-tree "my-duffel")
         (chroot-tree "/tmp")))

    the base filename (possibly with duffel extension), and the
    second is the host specifier (or '_default')"
    (if-let [re-res (re-find dot-underscore-split file-name)]
        (if (dext/is-extension (last re-res))
            (list file-name "_default")
            (rest re-res))
        (list file-name "_default")))
