composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-10-26 19:50:19 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix FileSystem.Event.Linux test cases

Browse Source 
Use takeDirectory correctly.
This commit is contained in:
Harendra Kumar 2024-07-30 18:27:32 +05:30
parent cd9b9c12b3
commit fb9ba3509a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -241,7 +241,7 @@ fileEvent = id
createParent :: FilePath -> FilePath -> IO ()
createParent file parent = do
createDirectoryIfMissing True (parent </> takeDirectory file)
createDirectoryIfMissing True (takeDirectory (parent </> file))
createDirWithParent :: FilePath -> FilePath -> IO ()
createDirWithParent dir parent =
@ -310,8 +310,8 @@ rootDirMove suffix events =
createFileWithParent :: FilePath -> FilePath -> IO ()
createFileWithParent file parent = do
when (not (null file)) $ do
putStrLn $ "Creating dir: " ++ (parent </> takeDirectory file)
createDirectoryIfMissing True (parent </> takeDirectory file)
putStrLn $ "Creating dir: " ++ takeDirectory (parent </> file)
createDirectoryIfMissing True (takeDirectory (parent </> file))
putStrLn $ "Opening: " ++ (parent </> file)
openFile (parent </> file) WriteMode >>= hClose
putStrLn $ "Opened: " ++ (parent </> file)