dandri/simplex-chat
1
0 Fork 0
mirror of https://github.com/simplex-chat/simplex-chat.git synced 2026-10-22 13:11:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix for ghc8107

Browse Source
This commit is contained in:
Evgeny Poberezkin committed 2023-11-04 13:37:25 +00:00
1 parent 2de111e76c
commit 1f5b80d560
1 file changed
+1 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Chat/Types.hs
+1 -1
View File
@@ -208,7 +208,7 @@ directOrUsed ct@Contact {contactUsed} =
contactDirect ct || contactUsed
anyDirectOrUsed :: Contact -> Bool
anyDirectOrUsed Contact {contactUsed, activeConn} = ((\c -> c.connLevel) <$> activeConn) == Just 0 || contactUsed
anyDirectOrUsed Contact {contactUsed, activeConn} = ((\Connection {connLevel} -> connLevel) <$> activeConn) == Just 0 || contactUsed
contactReady :: Contact -> Bool
contactReady Contact {activeConn} = maybe False connReady activeConn