waitForProcess (DeferredException e) = do
  putStrLn "Exception thrown in process:"
  print e
  return $ vfail (-1)
waitForProcess (DeferredException e) = do
  putStrLn "Exception thrown in process:"
  print e
  return $ vfail (-1)
waitForProcess (DeferredException e) = do
  putStrLn "Exception thrown in process:"
  print e
  return $ vfail (-1)