mirror of
https://github.com/composewell/streamly.git
synced 2024-09-11 11:37:22 +03:00
Add more debug msgs in Event.Linux test
This commit is contained in:
parent
ec77b87037
commit
06a370787b
@ -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)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user