timeoutCommand :: Int -> FilePath -> [String]
  -> IO (Maybe (ExitCode, String, String))
timeoutCommand time cmd args =
  timeoutSecs time $
    executeProcess cmd args ""
timeoutCommand :: Int -> FilePath -> [String]
  -> IO (Maybe (ExitCode, String, String))
timeoutCommand time cmd args =
  timeoutSecs time $
    executeProcess cmd args ""
timeoutCommand time cmd args =
  timeoutSecs time $
    executeProcess cmd args ""