From 0b2de17e8bb5ca5c2f709f150fd73153ef670fd0 Mon Sep 17 00:00:00 2001 From: Baylac-Jacqué Félix Date: Sat, 16 Sep 2017 16:11:04 +0200 Subject: Fix GHC and HLINT warnings. --- src/Network/WireGuard/TunListener.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Network/WireGuard/TunListener.hs') diff --git a/src/Network/WireGuard/TunListener.hs b/src/Network/WireGuard/TunListener.hs index 34b961b..7e4cfcb 100644 --- a/src/Network/WireGuard/TunListener.hs +++ b/src/Network/WireGuard/TunListener.hs @@ -41,5 +41,5 @@ readTun buf fd = do (\ptr -> copyMemory ptr buf nbytes >> zeroMemory buf nbytes) writeTun :: BA.ByteArrayAccess ba => Fd -> ba -> IO () -writeTun fd ba = BA.withByteArray ba $ \ptr -> do +writeTun fd ba = BA.withByteArray ba $ \ptr -> void $ tunWriteBuf fd ptr (fromIntegral (BA.length ba)) -- cgit v1.2.3-59-g8ed1b