fix Windows Readdir module - unsafeFromChunk type change

Author: harendra-kumar

core/src/Streamly/Internal/FileSystem/Windows/ReadDir.hsc

@@ -207,9 +207,6 @@ readDirStreamEither _ (DirStream (h, ref, fdata)) =
 
     where
 
-    mkPath :: Array Word8 -> WindowsPath
-    mkPath = Path.unsafeFromChunk
-
     processEntry ptr = do
         let dname = #{ptr WIN32_FIND_DATAW, cFileName} ptr
         dattrs :: #{type DWORD} <-
@@ -220,8 +217,8 @@ readDirStreamEither _ (DirStream (h, ref, fdata)) =
             isMeta <- isMetaDir dname
             if isMeta
             then findNext ptr
-            else return (Just (Left (mkPath (Array.unsafeCast name))))
-        else return (Just (Right (mkPath (Array.unsafeCast name))))
+            else return (Just (Left (Path.unsafeFromChunk name)))
+        else return (Just (Right (Path.unsafeFromChunk name)))
 
     findNext ptr = do
         retval <- liftIO $ c_FindNextFileW h ptr