spawnPIDWithPATH' :: MonadIO m => Maybe ([FilePath] -> [FilePath])
                     -> FilePath -> [String] -> m ProcessID
spawnPIDWithPATH' mf x xs = xfork $ executeFileWithPATH x mf xs Nothing
spawnPIDWithPATH' :: MonadIO m => Maybe ([FilePath] -> [FilePath])
                     -> FilePath -> [String] -> m ProcessID
spawnPIDWithPATH' mf x xs = xfork $ executeFileWithPATH x mf xs Nothing
spawnPIDWithPATH' mf x xs = xfork $ executeFileWithPATH x mf xs Nothing