diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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) |