replaced recursivePath with shallowPath for Babel
This commit is contained in:
parent
22a59c057f
commit
05b05be9f8
3 changed files with 5 additions and 4 deletions
|
|
@ -202,9 +202,8 @@ proc addPathRec(dir: string, info: TLineInfo) =
|
|||
if dir[pos] in {DirSep, AltSep}: inc(pos)
|
||||
for k,p in os.walkDir(dir):
|
||||
if k == pcDir and p[pos] != '.':
|
||||
addPathRec(p, info)
|
||||
if not contains(options.searchPaths, p):
|
||||
Message(info, hintPath, p)
|
||||
#Message(info, hintPath, p)
|
||||
lists.PrependStr(options.searchPaths, p)
|
||||
|
||||
proc track(arg: string, info: TLineInfo) =
|
||||
|
|
@ -226,7 +225,7 @@ proc processSwitch(switch, arg: string, pass: TCmdlinePass, info: TLineInfo) =
|
|||
of "path", "p":
|
||||
expectArg(switch, arg, pass, info)
|
||||
addPath(processPath(arg), info)
|
||||
of "recursivepath":
|
||||
of "shallowpath":
|
||||
expectArg(switch, arg, pass, info)
|
||||
var path = processPath(arg)
|
||||
addPathRec(path, info)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue