From c45dcd68255404da844f9b2c4b35c85d48da6866 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 17 Jan 2026 16:33:11 +0100 Subject: Accept invites via shared state --- main/Main.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'main/Main.hs') diff --git a/main/Main.hs b/main/Main.hs index 227451f..ec8c98a 100644 --- a/main/Main.hs +++ b/main/Main.hs @@ -992,8 +992,7 @@ cmdInviteAccept = do , Just from <- readRefDigest $ T.encodeUtf8 $ "blake2#" <> tfrom , Just token <- parseInviteToken tinv -> do - server <- asks ciServer - acceptInvite server from token + acceptInvite from token _ -> throwOtherError "invalit invite URL" cmdConversations :: Command -- cgit v1.2.3