From 35347e4cfbd9070d1065b1ff9600013d648c5e6e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 7 Dec 2019 22:35:55 +0100 Subject: Mergeable stored list --- src/Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 890cdcd..93517b2 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -206,7 +206,8 @@ cmdSend = void $ do let powner = finalOwner pid :: ComposedIdentity text <- asks ciLine smsg <- liftIO $ updateLocalState st $ \erb -> do - (slist, smsg) <- case find (sameIdentity powner . msgPeer . fromStored) (storedFromSList $ lsMessages $ fromStored erb) of + threads <- storedFromSList $ lsMessages $ fromStored erb + (slist, smsg) <- case find (sameIdentity powner . msgPeer . fromStored) threads of Just thread -> do (smsg, thread') <- createDirectMessage self (fromStored thread) (T.pack text) (,smsg) <$> slistReplaceS thread thread' (lsMessages $ fromStored erb) -- cgit v1.2.3