Merge branch 'master' into short-links

2026-04-27 06:25:15 +00:00 · 2025-03-28 19:50:18 +00:00
parent b83d897650 7636bc7491
commit 1dd677eec2
16 changed files with 215 additions and 96 deletions
@@ -58,7 +58,7 @@ readQueueStore tty mkQ f st = readLogLines tty f $ \_ -> processLine
        withQueue qId op a = runExceptT go >>= qError qId op
          where
            go = do
-              q <- ExceptT $ getQueue_ st mkQ SRecipient qId
+              q <- ExceptT $ getQueue_ st (\_ -> mkQ) SRecipient qId
              liftIO (readTVarIO $ queueRec q) >>= \case
                Nothing -> logWarn $ logPfx qId op <> "already deleted"
                Just _ -> void $ ExceptT $ a q