From 03a5699ae1bfc520cd8204912bda4985023f0ac1 Mon Sep 17 00:00:00 2001
From: Harendra Kumar <harendra@composewell.com>
Date: Sun, 17 Nov 2024 10:08:55 +0530
Subject: [PATCH] Enable listDirChunked for Windows

---
 examples/ListDir.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/examples/ListDir.hs b/examples/ListDir.hs
index b4d1cad..8fa5b58 100644
--- a/examples/ListDir.hs
+++ b/examples/ListDir.hs
@@ -42,13 +42,13 @@ import qualified Streamly.Data.Unfold as Unfold
 import qualified Streamly.Internal.Data.Unfold as Unfold
     (either, nil)
 import qualified Streamly.Internal.FileSystem.DirIO as Dir
-    (readEitherPaths, eitherReaderPaths)
+    (readEitherChunks, readEitherPaths, eitherReaderPaths)
 import qualified Streamly.FileSystem.Handle as Handle
 import qualified Streamly.FileSystem.Path as Path
 import qualified Streamly.Internal.FileSystem.Path as Path (toChunk)
 #if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
 import qualified Streamly.Internal.FileSystem.Posix.ReadDir as Dir
-    (readEitherChunks, readEitherByteChunks)
+    (readEitherByteChunks)
 #endif
 
 #if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
@@ -95,6 +95,7 @@ listDirByteChunked = do
 
     streamDirMaybe :: Either [Path] b -> Maybe (Stream IO (Either [Path] (Array Word8)))
     streamDirMaybe = either (Just . Dir.readEitherByteChunks) (const Nothing)
+#endif
 
 -- Faster than the listDir implementation below
 listDirChunked :: IO ()
@@ -138,7 +139,6 @@ listDirChunked = do
 
     streamDirMaybe :: Either [Path] b -> Maybe (Stream IO (Either [Path] [Path]))
     streamDirMaybe = either (Just . Dir.readEitherChunks) (const Nothing)
-#endif
 
 listDir :: IO ()
 listDir = do
@@ -194,7 +194,7 @@ main :: IO ()
 main = do
     hSetBuffering stdout LineBuffering
     listDir
-#if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
     -- listDirChunked
+#if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
     -- listDirByteChunked
 #endif