add git config debugging
(and process cwd debugging) Sponsored-by: Dartmouth College's Datalad project
This commit is contained in:
parent
ee23c540ea
commit
0da0e2efcc
4 changed files with 46 additions and 9 deletions
|
@ -189,11 +189,13 @@ withCreateProcess p action = bracket (createProcess p) cleanupProcess
|
|||
debugProcess :: CreateProcess -> ProcessHandle -> IO ()
|
||||
debugProcess p h = do
|
||||
pid <- getPid h
|
||||
debug "Utility.Process" $ unwords
|
||||
debug "Utility.Process" $ unwords $
|
||||
[ describePid pid
|
||||
, action ++ ":"
|
||||
, showCmd p
|
||||
]
|
||||
] ++ case cwd p of
|
||||
Nothing -> []
|
||||
Just c -> ["in", show c]
|
||||
where
|
||||
action
|
||||
| piped (std_in p) && piped (std_out p) = "chat"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue