toCommandResult :: (Double, (ExitCode, String, String)) -> String -> CommandResult
toCommandResult (t, (ex, o, err)) c = CommandResult {
  runTime=t, exitStatus = ex, stdOut = o, stdErr = err, commandName=c}
toCommandResult :: (Double, (ExitCode, String, String)) -> String -> CommandResult
toCommandResult (t, (ex, o, err)) c = CommandResult {
  runTime=t, exitStatus = ex, stdOut = o, stdErr = err, commandName=c}
toCommandResult (t, (ex, o, err)) c = CommandResult {
  runTime=t, exitStatus = ex, stdOut = o, stdErr = err, commandName=c}