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-directory/src/System/Posix/RawFilePath/Directory.hs
+++ b/hpath-directory/src/System/Posix/RawFilePath/Directory.hs
@@ -1150,7 +1150,8 @@ getDirsFiles' :: RawFilePath        -- ^ dir to read
 getDirsFiles' fp = do
  fd          <- openFd fp SPI.ReadOnly [SPDF.oNofollow] Nothing
  rawContents <- getDirectoryContents' fd
-  fmap catMaybes $ for rawContents $ \(_, f) ->
+  fmap catMaybes $ for rawContents $ \(_, f) -> do
+    putStrLn $ "getDirsFiles'" ++ (show f)
    if FP.isSpecialDirectoryEntry f then pure Nothing else pure $ Just f