Commit 33dd33eb authored by Bernd Brassel's avatar Bernd Brassel
Browse files

bug with path settings fixed

parent 6773f2dd
......@@ -145,8 +145,8 @@ 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",path] -> let (thisDir:oldPath)=userlibpath opts
in interactive state opts{userlibpath=thisDir:path:oldPath}
["path",_] -> let (thisDir:oldPath)=userlibpath opts
in interactive state opts{userlibpath=thisDir:head vals:oldPath}
["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