hasufell/hpath
1
1
Fork 0
Code Issues 8 Pull Requests Releases Wiki Activity

Random test

Browse Source
This commit is contained in:
Julian Ospald 2020-04-14 08:40:05 +02:00
parent b965635d05
commit dc4e652f3a
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.travis.yml
View File

@ -69,7 +69,7 @@ install:
script: script:
- cabal build --enable-tests all - cabal build --enable-tests all
- cabal test all - cabal run spec
- ./hpath/run-doctests.sh - ./hpath/run-doctests.sh
- ./hpath-filepath/run-doctests.sh - ./hpath-filepath/run-doctests.sh
- (cd hpath && cabal check) - (cd hpath && cabal check)

3
hpath-directory/src/System/Posix/RawFilePath/Directory.hs
View File

@ -1150,7 +1150,8 @@ getDirsFiles' :: RawFilePath -- ^ dir to read
getDirsFiles' fp = do getDirsFiles' fp = do
fd <- openFd fp SPI.ReadOnly [SPDF.oNofollow] Nothing fd <- openFd fp SPI.ReadOnly [SPDF.oNofollow] Nothing
rawContents <- getDirectoryContents' fd 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 if FP.isSpecialDirectoryEntry f then pure Nothing else pure $ Just f

1
hpath-posix/src/System/Posix/RawFilePath/Directory/Traversals.hs
View File

@ -199,6 +199,7 @@ readDirEnt (unpackDirStream -> dirp) =
dName <- c_name dEnt >>= peekFilePath dName <- c_name dEnt >>= peekFilePath
dType <- c_type dEnt dType <- c_type dEnt
c_freeDirEnt dEnt c_freeDirEnt dEnt
putStrLn $ "readDirEnt" ++ (show dName)
return (dType, dName) return (dType, dName)
else do else do
errno <- getErrno errno <- getErrno