From b8d70982e752c0399fcea97e4439222c2981a14b Mon Sep 17 00:00:00 2001 From: Evgeny Poberezkin Date: Wed, 21 Feb 2024 12:38:11 +0000 Subject: [PATCH] diff --- tests/ChatClient.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/tests/ChatClient.hs b/tests/ChatClient.hs index 93649e7ee7..0240648603 100644 --- a/tests/ChatClient.hs +++ b/tests/ChatClient.hs @@ -318,8 +318,7 @@ getTermLine cc = _ -> error "no output for 5 seconds" userName :: TestCC -> IO [Char] -userName (TestCC ChatController {currentUser} _ _ _ _ _) = do - maybe "no current user" (\User {localDisplayName = ldn} -> T.unpack ldn) <$> readTVarIO currentUser +userName (TestCC ChatController {currentUser} _ _ _ _ _) = maybe "no current user" (T.unpack . localDisplayName) <$> readTVarIO currentUser testChat2 :: HasCallStack => Profile -> Profile -> (HasCallStack => TestCC -> TestCC -> IO ()) -> FilePath -> IO () testChat2 = testChatCfgOpts2 testCfg testOpts