Fix package install not retrying after a 'bad request' error
This commit is contained in:
parent
6e82e6fa19
commit
d9894f0b74
1 changed files with 11 additions and 14 deletions
|
@ -423,17 +423,14 @@ calls."
|
|||
(print! "Installing %s" (car pkg))
|
||||
(doom--condition-case!
|
||||
(print! "%s%s"
|
||||
(if (and (package-installed-p (car pkg))
|
||||
(cond ((and (package-installed-p (car pkg))
|
||||
(not (doom-package-different-backend-p (car pkg)))
|
||||
(not (doom-package-different-recipe-p (car pkg))))
|
||||
(dark (white "⚠ ALREADY INSTALLED"))
|
||||
(condition-case e
|
||||
(if (doom-install-package (car pkg) (cdr pkg))
|
||||
(prog1 (green "✓ DONE")
|
||||
(setq success t))
|
||||
(red "✕ FAILED"))
|
||||
(error
|
||||
(red "✕ ERROR (%s)" e))))
|
||||
(dark (white "⚠ ALREADY INSTALLED")))
|
||||
((doom-install-package (car pkg) (cdr pkg))
|
||||
(setq success t)
|
||||
(green "✓ DONE"))
|
||||
((red "✕ FAILED")))
|
||||
(if (plist-member (cdr pkg) :pin)
|
||||
(format " [pinned: %s]" (plist-get (cdr pkg) :pin))
|
||||
""))))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue