diff options
Diffstat (limited to 'Omni/Jr/Web.hs')
| -rw-r--r-- | Omni/Jr/Web.hs | 22 |
1 files changed, 1 insertions, 21 deletions
diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs index 4e55c61..fe1711b 100644 --- a/Omni/Jr/Web.hs +++ b/Omni/Jr/Web.hs @@ -1849,33 +1849,13 @@ renderRetryContextBanner tid (Just ctx) = [Lucid.class_ "retry-warning-message"] "This task has exceeded the maximum number of retries. A human must review the failure and either fix the issue manually or reset the retry count." - Lucid.div_ [Lucid.class_ "retry-notes-section"] <| do - Lucid.h4_ "Human Notes/Guidance" - Lucid.p_ [Lucid.class_ "notes-help"] "Add notes to guide the worker on the next retry attempt:" - Lucid.form_ [Lucid.method_ "POST", Lucid.action_ ("/tasks/" <> tid <> "/notes")] <| do - Lucid.textarea_ - [ Lucid.name_ "notes", - Lucid.class_ "notes-textarea", - Lucid.rows_ "6", - Lucid.placeholder_ "Provide guidance for the worker: what to fix, which approach to use, or what to avoid..." - ] - (Lucid.toHtml (fromMaybe "" (TaskCore.retryNotes ctx))) - Lucid.div_ [Lucid.class_ "form-actions"] <| do - Lucid.button_ [Lucid.type_ "submit", Lucid.class_ "submit-btn"] "Save Notes" + Lucid.p_ [Lucid.class_ "retry-hint"] "Use comments below to provide guidance for retry." Lucid.div_ [Lucid.class_ "retry-reset-section"] <| do Lucid.h4_ "Reset Retries" Lucid.p_ [Lucid.class_ "notes-help"] "Clear retry context and give task a fresh start:" Lucid.form_ [Lucid.method_ "POST", Lucid.action_ ("/tasks/" <> tid <> "/reset-retries")] <| do Lucid.button_ [Lucid.type_ "submit", Lucid.class_ "reset-btn"] "Reset Retries" - - case TaskCore.retryNotes ctx of - Nothing -> pure () - Just notes -> - unless maxRetriesExceeded <| do - Lucid.div_ [Lucid.class_ "retry-notes-display"] <| do - Lucid.h4_ "Human Notes" - Lucid.div_ [Lucid.class_ "notes-content"] (Lucid.toHtml notes) where attempt = TaskCore.retryAttempt ctx maxRetriesExceeded = attempt >= 3 |