check for unstaged old symlinks in the sanity checker

This commit is contained in:
Joey Hess 2012-06-13 19:25:47 -04:00
parent 4b9b9b4947
commit 8919c2e4da
3 changed files with 39 additions and 14 deletions

View file

@ -77,7 +77,7 @@ writeDaemonStatusFile file status =
[ "lastRunning:" ++ show now
, "scanComplete:" ++ show (scanComplete status)
, "sanityCheckRunning:" ++ show (sanityCheckRunning status)
, "lastSanityCheck:" ++ show (lastSanityCheck status)
, "lastSanityCheck:" ++ maybe "" show (lastSanityCheck status)
]
readDaemonStatusFile :: FilePath -> IO DaemonStatus