Reset stuck Review tasks to Open when no commit found

1 files changed, 3 insertions, 2 deletions

diff --git a/Omni/Jr.hs b/Omni/Jr.hs
index 8b2c354..f6f8d27 100644
--- a/Omni/Jr.hs
+++ b/Omni/Jr.hs
@@ -189,8 +189,9 @@ runLoop delaySec = do
 
           if code /= Exit.ExitSuccess || null shaOut
             then do
-              putText "[review] No commit found for this task yet."
-              putText "[review] Worker may still be running or commit failed. Skipping."
+              putText "[review] No commit found for this task."
+              putText "[review] Resetting to Open for retry."
+              TaskCore.updateTaskStatus tid TaskCore.Open []
             else do
               let commitSha = case List.lines shaOut of
                     (x : _) -> x