From a9bd4a5882ebfb0590a6ca1918308abae643f45f Mon Sep 17 00:00:00 2001
From: Marcin Szamotulski <profunctor@pm.me>
Date: Fri, 31 Jan 2020 12:44:52 +0100
Subject: [PATCH] System.Win32.Async - do not export Socket.ByteString

Let the user of the library choose wether to use
'System.Win32.Async.Socket.ByteString' or
'System.Win32.Async.Socket.ByteString.Lazy'.
---
 Win32-network/src/System/Win32/Async.hs | 2 --
 ouroboros-network/test/Test/Socket.hs   | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/Win32-network/src/System/Win32/Async.hs b/Win32-network/src/System/Win32/Async.hs
index c331df8a5b1..4a97e79dd0e 100644
--- a/Win32-network/src/System/Win32/Async.hs
+++ b/Win32-network/src/System/Win32/Async.hs
@@ -8,11 +8,9 @@ module System.Win32.Async
   , module System.Win32.Async.ErrCode
   , module System.Win32.Async.IOManager
   , module System.Win32.Async.Socket
-  , module System.Win32.Async.Socket.ByteString
   ) where
 
 import System.Win32.Async.IOManager
 import System.Win32.Async.File
 import System.Win32.Async.ErrCode
 import System.Win32.Async.Socket
-import System.Win32.Async.Socket.ByteString
diff --git a/ouroboros-network/test/Test/Socket.hs b/ouroboros-network/test/Test/Socket.hs
index 0fec6f10906..7217f6df057 100644
--- a/ouroboros-network/test/Test/Socket.hs
+++ b/ouroboros-network/test/Test/Socket.hs
@@ -32,7 +32,7 @@ import           Data.Time.Clock (UTCTime, getCurrentTime)
 import           Data.Void (Void)
 import qualified Network.Socket as Socket
 #if defined(mingw32_HOST_OS)
-import qualified System.Win32.Async as Win32.Async
+import qualified System.Win32.Async.Socket.ByteString as Win32.Async
 #else
 import qualified Network.Socket.ByteString.Lazy as Socket (sendAll)
 #endif