From ca8b7923b33b46d0e8c232757764130d45c4ba6e Mon Sep 17 00:00:00 2001 From: thomasjm Date: Sat, 20 Jul 2024 19:01:28 -0700 Subject: [PATCH] Remove contents of Sandwich.Contexts.ReverseProxy.TCP on windows --- .../lib/Test/Sandwich/Contexts/ReverseProxy/TCP.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/sandwich-contexts/lib/Test/Sandwich/Contexts/ReverseProxy/TCP.hs b/sandwich-contexts/lib/Test/Sandwich/Contexts/ReverseProxy/TCP.hs index cbafbe00..6e0cdd36 100644 --- a/sandwich-contexts/lib/Test/Sandwich/Contexts/ReverseProxy/TCP.hs +++ b/sandwich-contexts/lib/Test/Sandwich/Contexts/ReverseProxy/TCP.hs @@ -5,6 +5,8 @@ module Test.Sandwich.Contexts.ReverseProxy.TCP where +#ifndef mingw32_HOST_OS + import Control.Monad.IO.Unlift import Data.Conduit import qualified Data.Conduit.Network as DCN @@ -36,3 +38,5 @@ withProxyToUnixSocket socketPath f = do concurrently_ (runConduit $ DCN.appSource appdata .| DCN.appSink appdataServer) (runConduit $ DCN.appSource appdataServer .| DCN.appSink appdata) + +#endif