@@ -115,15 +115,17 @@ deploymentHead dfiDyn sentEv =
115115 else mdo
116116 let btnState = not $ isPending . recordedStatus $ dfi ^. field @"status"
117117 btnEnabledDyn <- holdDyn btnState $ not <$> sentEv
118− editEv <- aButtonClassEnabled
118+ editEv <- buttonClassEnabled'
119119 "page__action button button--edit popup-handler"
120120 "Edit deployment"
121121 btnEnabledDyn
122− archEv <- aButtonClassEnabled
122+ "button--disabled"
123+ archEv <- buttonClassEnabled'
123124 "page__action button button--secondary button--archive \
124125 \classic-popup-handler"
125126 "Move to archive"
126127 btnEnabledDyn
128+ "button--disabled"
127129 pure (R.tag (current dfiDyn) editEv, archEv)
128130 url' <- kubeDashboardUrl dfiDyn
129131 void . dyn $ url' <&> maybe blank (\url ->