composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-11 11:37:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Add more debug msgs in Event.Linux test

Browse Source
This commit is contained in:
Harendra Kumar 2024-07-26 19:52:20 +05:30
parent ec77b87037
commit 06a370787b
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test/Streamly/Test/FileSystem/Event/Common.hs
View File

@ -309,9 +309,10 @@ rootDirMove suffix events =
createFileWithParent :: FilePath -> FilePath -> IO ()
createFileWithParent file parent = do
putStrLn $ "Creating dir and opening: " ++ (parent </> file)
when (not (null file)) $
when (not (null file)) $ do
putStrLn $ "Creating dir: " ++ (parent </> takeDirectory file)
createDirectoryIfMissing True (parent </> takeDirectory file)
putStrLn $ "Opening: " ++ (parent </> file)
openFile (parent </> file) WriteMode >>= hClose
putStrLn $ "Opened: " ++ (parent </> file)