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/TunListener.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/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)) |