Hi Everyone,

I am strugling to get the following code to work correctly and I'm hoping

someone will be able to shed some light as to why the code is behaving

as it does:

   {-| runs the supplied command and args as a SHELL command -}
   runShell :: String -> IO (String, ExitCode)
   runShell shellCmd = do
      (_, Just hOut, Just hErr, hProcess) <- createProcess (shell shellCmd) { std_out = CreatePipe, std_err = CreatePipe }
      exitCode <- waitForProcess hProcess
      outTxt <- hGetContents hOut
      errTxt <- hGetContents hErr
      return $ (outTxt ++ errTxt, exitCode)

If I try to su the runShell function with the following command, it simply

blocks forever:

git --no-pager blame <your git file here>

but if I do:

git status

The runShell function works as expected. Can someone shed some light on why the 'git blame' command blocks? Interrestingly enough, if I remove the waitForProcess action, the 'git blame' command starts working as expected, but I no longer have my blocking behaviour, waiting for the command to finish and return the ExitCode.

Regards

Rouan