diff options
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/FsckResults.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Logs/FsckResults.hs b/Logs/FsckResults.hs index 23367a3d3..00a36fa5c 100644 --- a/Logs/FsckResults.hs +++ b/Logs/FsckResults.hs @@ -29,7 +29,7 @@ writeFsckResults u fsckresults = do | otherwise -> store s t logfile where store s t logfile = do - createDirectoryIfMissing True (parentDir logfile) + createDirectoryIfMissing True (takeDirectory logfile) liftIO $ viaTmp writeFile logfile $ serialize s t serialize s t = let ls = map fromRef (S.toList s) |