From c75e318dd6392231ec1a7d9d9aa0e16f0fa0d539 Mon Sep 17 00:00:00 2001
From: MarcFontaine <marc.fontaine@iohk.io>
Date: Wed, 15 Jan 2020 09:04:54 +0100
Subject: [PATCH] release sockets

---
 ntp-client/src/Network/NTP/Client.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ntp-client/src/Network/NTP/Client.hs b/ntp-client/src/Network/NTP/Client.hs
index cc135c9c4a5..85540e17e1b 100644
--- 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])