diff --git a/.travis.yml b/.travis.yml index 36fbdc9..ab0743e 100644 --- a/.travis.yml +++ b/.travis.yml @@ -69,7 +69,7 @@ install: script: - cabal build --enable-tests all - - cabal test all + - cabal run spec - ./hpath/run-doctests.sh - ./hpath-filepath/run-doctests.sh - (cd hpath && cabal check) diff --git a/hpath-directory/src/System/Posix/RawFilePath/Directory.hs b/hpath-directory/src/System/Posix/RawFilePath/Directory.hs index d533774..fc13ad4 100644 --- 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 diff --git a/hpath-posix/src/System/Posix/RawFilePath/Directory/Traversals.hs b/hpath-posix/src/System/Posix/RawFilePath/Directory/Traversals.hs index 229c071..a45defd 100644 --- 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