1
0
Fork 0

cleanup lib

master
Michael Raitza 2021-02-17 18:41:56 +01:00
parent 7405c29521
commit 9c20083680
1 changed files with 1 additions and 4 deletions

View File

@ -27,9 +27,6 @@ let
pths = crossLists (p: pat: p + pat) [ foldedpaths patlist ]; pths = crossLists (p: pat: p + pat) [ foldedpaths patlist ];
in [ doFile ] ++ pths; in [ doFile ] ++ pths;
cwd = "/home/spacefrogg/tmp";
path = cwd + "/foo/bar/baz.def.c";
whichdo = path: let whichdo = path: let
pathlist = searchPath path; pathlist = searchPath path;
in foldl (res: p: if res == "" then if pathExists p then p else res else res) "" pathlist; in foldl (res: p: if res == "" then if pathExists p then p else res else res) "" pathlist;
@ -46,7 +43,7 @@ let
in if _out == "" then _path else _out; in if _out == "" then _path else _out;
self = { self = {
inherit searchPath cwd path doFileSuffix whichdo d1 d2; inherit searchPath doFileSuffix whichdo d1 d2;
}; };
in self in self