public
/
nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

enhancing whatis trace function 

svn path=/nixpkgs/trunk/; revision=13541
This commit is contained in:
Marc Weber 2008-12-02 12:26:12 +00:00
parent 01fc783e7f
commit 1f69d4d1eb
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/lib/default.nix
View File

@ -566,10 +566,11 @@ rec {
# this can help debug your code as well - designed to not produce thousands of lines # this can help debug your code as well - designed to not produce thousands of lines
traceWhatis = x : __trace (whatis x) x; traceWhatis = x : __trace (whatis x) x;
traceMarked = str: x: __trace (str + (whatis x)) x; traceMarked = str: x: __trace (str + (whatis x)) x;
whatis = x : attrNamesToStr = a : concatStringsSep "; " (map (x : "${x}=") (__attrNames a));
whatis = x :
if (__isAttrs x) then if (__isAttrs x) then
if (x ? outPath) then "x is a derivation with name ${x.name}" if (x ? outPath) then "x is a derivation, name ${if x ? name then x.name else "<no name>"}, { ${attrNamesToStr x} }"
else "x is an attr set with attributes ${builtins.toString (__attrNames x)}" else "x is attr set { ${attrNamesToStr x} }"
else if (__isFunction x) then "x is a function" else if (__isFunction x) then "x is a function"
else if (x == []) then "x is an empty list" else if (x == []) then "x is an empty list"
else if (__isList x) then "x is a list, first item is : ${whatis (__head x)}" else if (__isList x) then "x is a list, first item is : ${whatis (__head x)}"