release sockets

IntersectMBO · Jan 15, 2020 · c75e318 · c75e318
1 parent 7a1201b
commit c75e318
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/ntp-client/src/Network/NTP/Client.hs b/ntp-client/src/Network/NTP/Client.hs
@@ -347,7 +347,8 @@ oneshotClient tracer (ntpSettings, ntpStatus)
             Socket.close v6
             traceWith tracer NtpTraceSocketClosed
         These (v4, _) (v6, _) -> do
-            -- TODO !!
+            Socket.close v6
+            Socket.close v4
             traceWith tracer NtpTraceSocketClosed
 
 lookupServers :: [String] -> IO ([AddrInfo], [AddrInfo])