diff options
author | Baylac-Jacqué Félix <felix@alternativebit.fr> | 2017-09-16 16:11:04 +0200 |
---|---|---|
committer | Baylac-Jacqué Félix <felix@alternativebit.fr> | 2017-09-16 17:11:53 +0200 |
commit | 0b2de17e8bb5ca5c2f709f150fd73153ef670fd0 (patch) | |
tree | 1376cb18d011492da599a8d2a80f01e164a3a847 /src/Network/WireGuard/Core.hs | |
parent | Plumbed RPC set parser to STM state. (diff) | |
download | wireguard-hs-0b2de17e8bb5ca5c2f709f150fd73153ef670fd0.tar.xz wireguard-hs-0b2de17e8bb5ca5c2f709f150fd73153ef670fd0.zip |
Fix GHC and HLINT warnings.
Diffstat (limited to 'src/Network/WireGuard/Core.hs')
-rw-r--r-- | src/Network/WireGuard/Core.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Network/WireGuard/Core.hs b/src/Network/WireGuard/Core.hs index 5bbf317..39beb78 100644 --- a/src/Network/WireGuard/Core.hs +++ b/src/Network/WireGuard/Core.hs @@ -28,7 +28,7 @@ import Data.Serialize (putWord32be, runPut) import Foreign.C.Types (CTime (..)) import Network.Socket (SockAddr) -import System.IO (hPutStrLn, stderr) +import System.IO (hPrint, stderr) import System.Posix.Time (epochTime) import System.Random (randomIO) @@ -73,7 +73,7 @@ handleReadTun device readTunChan writeUdpChan = forever $ do res <- runExceptT $ processTunPacket device writeUdpChan tunPacket case res of Right udpPacket -> pushPacketQueue writeUdpChan udpPacket - Left err -> hPutStrLn stderr (show err) -- TODO: proper logging + Left err -> hPrint stderr err -- TODO: proper logging handleReadUdp :: Device -> PacketQueue UdpPacket -> PacketQueue TunPacket -> PacketQueue UdpPacket @@ -82,7 +82,7 @@ handleReadUdp device readUdpChan writeTunChan writeUdpChan = forever $ do udpPacket <- popPacketQueue readUdpChan res <- runExceptT $ processUdpPacket device udpPacket case res of - Left err -> hPutStrLn stderr (show err) -- TODO: proper logging + Left err -> hPrint stderr err -- TODO: proper logging Right mpacket -> case mpacket of Just (Right tunp) -> pushPacketQueue writeTunChan tunp Just (Left udpp) -> pushPacketQueue writeUdpChan udpp @@ -225,7 +225,7 @@ processPacket device@Device{..} _key _psk sock PacketData{..} = do unless (remotePub peer `dhPubEq` remotePub peer') $ throwE SourceAddrBlockedError liftIO $ atomically $ writeTVar (lastReceiveTime peer) now liftIO $ atomically $ modifyTVar' (receivedBytes peer) (+fromIntegral (BA.length decryptedPayload)) - else do + else liftIO $ atomically $ writeTVar (lastKeepaliveTime peer) now return (Just (Right decryptedPayload)) |