diff options
Diffstat (limited to 'src/Network/WireGuard/TunListener.hs')
| -rw-r--r-- | src/Network/WireGuard/TunListener.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |