Add INLINE statements to directory tree helper functions

Author: adithyaov

bench-test-lib/src/BenchTestLib/DirIO.hs

@@ -124,6 +124,7 @@ createDirStucture dirRoot depth width = do
 
 #if !defined(mingw32_HOST_OS) && !defined(__MINGW32__)
 -- Fastest implementation, only works for posix as of now.
+{-# INLINE listDirByteChunked #-}
 listDirByteChunked :: FilePath -> Stream IO (Array Word8)
 listDirByteChunked inp = do
      Stream.catRights
@@ -132,6 +133,7 @@ listDirByteChunked inp = do
 #endif
 
 -- Faster than the listDir implementation below
+{-# INLINE listDirChunkedWith #-}
 listDirChunkedWith
     :: (Stream IO (Either [Path] b) -> Stream IO (Either [Path] [Path]))
     -> [Char] -> Stream IO Word8
@@ -143,6 +145,7 @@ listDirChunkedWith act inp = do
         $ act
         $ Stream.fromPure (Left [fromJust $ Path.fromString inp])
 
+{-# INLINE listDirWith #-}
 listDirWith
     :: (Stream IO (Either Path Path) -> Stream IO (Either Path Path))
     -> [Char] -> Stream IO Word8
@@ -153,6 +156,7 @@ listDirWith act inp = do
         $ Stream.fromPure (Left (fromJust $ Path.fromString inp))
 
 #define DEF_LIST_DIR(x,y); \
+{-# INLINE x #-} \
 x :: [Char] -> Stream IO Word8;\
 x = listDirWith (y)
 
@@ -169,6 +173,7 @@ DEF_LIST_DIR(listDirParInterleaved, Stream.parConcatIterate (Stream.interleaved
 DEF_LIST_DIR(listDirParOrdered, Stream.parConcatIterate (Stream.ordered True) streamDir)
 
 #define DEF_LIST_DIR_CHUNKED(x,y); \
+{-# INLINE x #-} \
 x :: [Char] -> Stream IO Word8;\
 x = listDirChunkedWith (y)