Random test

2020-04-14 08:40:05 +02:00
parent b965635d05
commit dc4e652f3a
3 changed files with 4 additions and 2 deletions
--- a/hpath-posix/src/System/Posix/RawFilePath/Directory/Traversals.hs
+++ b/hpath-posix/src/System/Posix/RawFilePath/Directory/Traversals.hs
@@ -199,6 +199,7 @@ readDirEnt (unpackDirStream -> dirp) =
                 dName <- c_name dEnt >>= peekFilePath
                 dType <- c_type dEnt
                 c_freeDirEnt dEnt
+                 putStrLn $ "readDirEnt" ++ (show dName)
                 return (dType, dName)
       else do
         errno <- getErrno