From afb6afff1d0f81d8a0dcfd94fa8e46a849bb094f Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Mon, 27 Jul 2015 02:02:34 +0200
Subject: * tv -> tv *

---
 tv/lib/modules.nix | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 tv/lib/modules.nix

(limited to 'tv/lib/modules.nix')

diff --git a/tv/lib/modules.nix b/tv/lib/modules.nix
new file mode 100644
index 000000000..248e638ea
--- /dev/null
+++ b/tv/lib/modules.nix
@@ -0,0 +1,21 @@
+let
+  pkgs = import <nixpkgs> {};
+  inherit (pkgs.lib) concatMap hasAttr;
+in rec {
+
+  no-touch-args = {
+    config = throw "no-touch-args: can't touch config!";
+    lib = throw "no-touch-args: can't touch lib!";
+    pkgs = throw "no-touch-args: can't touch pkgs!";
+  };
+
+  # list-imports : path -> [path]
+  # Return a module's transitive list of imports.
+  # XXX duplicates won't get eliminated from the result.
+  list-imports = path:
+    let module = import path no-touch-args;
+        imports = if hasAttr "imports" module
+                    then concatMap list-imports module.imports
+                    else [];
+    in [path] ++ imports;
+}
-- 
cgit v1.2.3