dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-06-04 15:11:30 +00:00
Code Issues Packages Projects Releases Wiki Activity

use Int again

Browse Source
This commit is contained in:
Evgeny Poberezkin
2022-03-20 18:14:45 +00:00
parent bf020f3492
commit 05da1cc09b
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Messaging/Transport/KeepAlive.hs
+6 -6
View File
@@ -15,9 +15,9 @@ foreign import capi "netinet/tcp.h value TCP_KEEPINTVL" tcpKeepIntvl :: CInt
foreign import capi "netinet/tcp.h value SOL_TCP" solTcp :: CInt
data KeepAliveOpts = KeepAliveOpts
{ keepCnt :: CInt,
keepIdle :: CInt,
keepIntvl :: CInt
{ keepCnt :: Int,
keepIdle :: Int,
keepIntvl :: Int
}
defaultKeepAlive :: KeepAliveOpts
@@ -35,6 +35,6 @@ setSocketKeepAlive sock KeepAliveOpts {keepCnt, keepIdle, keepIntvl} = do
-- putStrLn $ "tcpKeepCnt: " <> show tcpKeepCnt
-- putStrLn $ "tcpKeepIdle: " <> show tcpKeepIdle
-- putStrLn $ "tcpKeepIntvl: " <> show tcpKeepIntvl
setSockOpt sock (SockOpt solTcp tcpKeepCnt) keepCnt
setSockOpt sock (SockOpt solTcp tcpKeepIdle) keepIdle
setSockOpt sock (SockOpt solTcp tcpKeepIntvl) keepIntvl
setSocketOption sock (SockOpt solTcp tcpKeepCnt) keepCnt
setSocketOption sock (SockOpt solTcp tcpKeepIdle) keepIdle
setSocketOption sock (SockOpt solTcp tcpKeepIntvl) keepIntvl