From 4a9c6ab6a22432a8df3ad0611dd4821e005dc0a7 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Sat, 21 Dec 2019 05:42:32 +0000 Subject: refactor(nix/readTree): Move readTree to its own subfolder --- read-tree.nix | 61 ----------------------------------------------------------- 1 file changed, 61 deletions(-) delete mode 100644 read-tree.nix (limited to 'read-tree.nix') diff --git a/read-tree.nix b/read-tree.nix deleted file mode 100644 index 052865914e5b..000000000000 --- a/read-tree.nix +++ /dev/null @@ -1,61 +0,0 @@ -args: initPath: - -let - inherit (builtins) - attrNames - baseNameOf - filter - hasAttr - head - length - listToAttrs - map - match - isAttrs - readDir; - - argsWithPath = parts: args // { - locatedAt = parts; - }; - - # The marker is added to every set that was imported directly by - # readTree. - importWithMark = path: parts: - let imported = import path (argsWithPath parts); - in if (isAttrs imported) - then imported // { __readTree = true; } - else imported; - - nixFileName = file: - let res = match "(.*)\.nix" file; - in if res == null then null else head res; - - readTree = path: parts: - let - dir = readDir path; - self = importWithMark path parts; - joinChild = c: path + ("/" + c); - - # Import subdirectories of the current one, unless the special - # `.skip-subtree` file exists which makes readTree ignore the - # children. - # - # This file can optionally contain information on why the tree - # should be ignored, but its content is not inspected by - # readTree - filterDir = f: dir."${f}" == "directory"; - children = if hasAttr ".skip-subtree" dir then [] else map (c: { - name = c; - value = readTree (joinChild c) (parts ++ [ c ]); - }) (filter filterDir (attrNames dir)); - - # Import Nix files - nixFiles = filter (f: f != null) (map nixFileName (attrNames dir)); - nixChildren = map (c: let p = joinChild (c + ".nix"); in { - name = c; - value = importWithMark p (parts ++ [ c ]); - }) nixFiles; - in if dir ? "default.nix" - then (if isAttrs self then self // (listToAttrs children) else self) - else listToAttrs (nixChildren ++ children); -in readTree initPath [ (baseNameOf initPath) ] -- cgit 1.4.1