From b8e55c64a68763b0953945476cc75206f5354023 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 17 May 2022 22:06:01 +0200
Subject: Mergeable class with separate component type

---
 src/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 7fb6ff3..d764fe0 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -286,7 +286,7 @@ cmdHistory = void $ do
     let powner = finalOwner pid
 
     case find (sameIdentity powner . msgPeer) $
-            messageThreadView $ lookupSharedValue $ lsShared $ headObject ehead of
+            toThreadList $ lookupSharedValue $ lsShared $ headObject ehead of
         Just thread -> do
             tzone <- liftIO $ getCurrentTimeZone
             liftIO $ mapM_ (putStrLn . formatMessage tzone) $ reverse $ take 50 $ threadToList thread
@@ -313,7 +313,7 @@ cmdContacts :: Command
 cmdContacts = do
     args <- words <$> asks ciLine
     ehead <- asks ciHead
-    let contacts = contactView $ lookupSharedValue $ lsShared $ headObject ehead
+    let contacts = toContactList $ lookupSharedValue $ lsShared $ headObject ehead
         verbose = "-v" `elem` args
     forM_ (zip [1..] contacts) $ \(i :: Int, c) -> do
         liftIO $ putStrLn $ show i ++ ": " ++ T.unpack (displayIdentity $ contactIdentity c) ++
-- 
cgit v1.2.3