Commit fc22a5aa authored by Bernd Brassel's avatar Bernd Brassel
Browse files

set full path possible in kicsi

parent 33dd33eb
......@@ -145,8 +145,10 @@ setMenue (opt:vals) state opts = do
["i"] -> interactive state (newPm opts (Interactive DF))
["search","tree"] -> interactive state opts{pm=ST}
["st"] -> interactive state opts{pm=ST}
["path",_] -> let (thisDir:oldPath)=userlibpath opts
["path+",_] -> let (thisDir:oldPath)=userlibpath opts
in interactive state opts{userlibpath=thisDir:head vals:oldPath}
["path",_] -> let thisDir = head (userlibpath opts)
in interactive state opts{userlibpath=[thisDir,head vals]}
["verbosity",i] | all isDigit i -> interactive state opts{verbosity=read i}
["v",i] | all isDigit i -> interactive state opts{verbosity=read i}
("command":_) -> interactive state{cmdLineArgs=unwords vals} opts
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment