Replace Array API calls with Path API in Posix Syscalls

Author: harendra-kumar

core/src/Streamly/Internal/FileSystem/PathIO.hs

@@ -52,8 +52,7 @@ getCurrentDirectory = modifyError $ do
 
 -- | Set the current working directory.
 setCurrentDirectory :: Path -> IO ()
-setCurrentDirectory p = modifyError $
-    Syscall.setCwd (toArray p)
+setCurrentDirectory p = modifyError $ Syscall.setCwd p
 
     where
 

core/src/Streamly/Internal/Syscall/Posix.hsc

@@ -35,11 +35,12 @@ import Foreign.Storable (peekByteOff)
 import GHC.Base (Addr##)
 import GHC.Ptr (Ptr(..))
 import Streamly.Internal.Data.Array.Type (Array(..))
-import qualified Streamly.Internal.Data.Array as Array
 import qualified Streamly.Internal.Data.MutByteArray as MutByteArray
 import Streamly.Internal.Data.MutByteArray.Type
     (MutByteArray, PinnedState(..), unsafeAsPtr)
 import Streamly.Internal.Syscall.Common (retry)
+import Streamly.Internal.FileSystem.PosixPath (PosixPath)
+import qualified Streamly.Internal.FileSystem.PosixPath as Path
 import System.Posix.Types (CMode)
 
 #include <sys/stat.h>
@@ -81,9 +82,9 @@ getCwd = do
 foreign import ccall unsafe "chdir"
     c_chdir :: CString -> IO CInt
 
-setCwd :: Array Word8 -> IO ()
-setCwd arr =
-    Array.asCStringUnsafe arr $
+setCwd :: PosixPath -> IO ()
+setCwd path =
+    Path.asCString path $
         throwErrnoIfMinus1_ "setCwd" . c_chdir
 
 --------------------------------------------------------------------------------

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

@@ -155,7 +155,7 @@ openDirStreamCString s = do
 -- {-# INLINE openDirStream #-}
 openDirStream :: PosixPath -> IO DirStream
 openDirStream p =
-    Array.asCStringUnsafe (Path.toArray p) $ \s -> do
+    Path.asCString p $ \s -> do
         -- openDirStreamCString s
         dirp <- throwErrnoPathIfNullRetry "openDirStream" p $ c_opendir s
         return (DirStream dirp)
@@ -214,7 +214,7 @@ statEntryType conf parent dname = do
     -- XXX We can create a pinned array right here since the next call pins
     -- it anyway.
     path <- Path.appendCString parent dname
-    Array.asCStringUnsafe (Path.toArray path) $ \cStr -> do
+    Path.asCString path $ \cStr -> do
         res <- stat (_followSymlinks conf) cStr
         case res of
             Right mode -> pure $