Use appendCtring from the Path module

Author: harendra-kumar

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

@@ -42,6 +42,7 @@ import Streamly.Internal.Data.Stream (Stream(..), Step(..))
 import qualified Streamly.Internal.Data.Array as Array
 import qualified Streamly.Internal.Data.MutByteArray as MutByteArray
 import qualified Streamly.Internal.Data.Unfold as UF (bracketIO)
+import qualified Streamly.Internal.FileSystem.Path.Common as PathC
 import qualified Streamly.Internal.FileSystem.PosixPath as Path
 
 #include <dirent.h>
@@ -283,13 +284,11 @@ eitherReader =
 
 {-# INLINE appendCString #-}
 appendCString :: PosixPath -> CString -> IO PosixPath
-appendCString a b = do
-    -- XXX We do not need to create an Array from the CString first. We can
-    -- append it directly if Path can provide a known length stream append
-    -- operation. Should we ensure that this is pinned in the DT_UNKNOWN case
+appendCString x@(PosixPath a) b = do
+    -- XXX Should we ensure that this is pinned in the DT_UNKNOWN case
     -- because we always pass it to a C function which pins it anyway.
-    b1 <- Array.fromCString (castPtr b)
-    pure $ Path.append a (Path.unsafeFromChunk b1)
+    arr <- PathC.appendCString PathC.Posix a b
+    pure $ PosixPath arr
 
 {-# ANN type ChunkStreamState Fuse #-}
 data ChunkStreamState =