Commit 65002742 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Make userSpecifyArgs update the args even if the prog is configured already

parent 10cb4e5b
......@@ -274,8 +274,13 @@ userSpecifyArgs :: String -- ^Program name
-> [ProgArg] -- ^user-specified args
-> ProgramConfiguration
-> ProgramConfiguration
userSpecifyArgs name args' = updateUnconfiguredProgs $
flip Map.update name $ \(prog, path, args) -> Just (prog, path, args ++ args')
userSpecifyArgs name args' =
updateUnconfiguredProgs
(flip Map.update name $
\(prog, path, args) -> Just (prog, path, args ++ args'))
. updateConfiguredProgs
(flip Map.update name $
\prog -> Just prog { programArgs = programArgs prog ++ args' })
userSpecifiedPath :: Program -> ProgramConfiguration -> Maybe FilePath
userSpecifiedPath prog =
......
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