diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-02 22:59:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-02 22:59:07 -0400 |
| commit | c81a8bd68c53348b9e561dc588499452a5a654c7 (patch) | |
| tree | d1c52c78723784f20c33763c282860878d19f979 /Assistant/Threads/SanityChecker.hs | |
| parent | 0d14a987dc4887de5516497206356652e846c996 (diff) | |
hlint
Diffstat (limited to 'Assistant/Threads/SanityChecker.hs')
| -rw-r--r-- | Assistant/Threads/SanityChecker.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/SanityChecker.hs b/Assistant/Threads/SanityChecker.hs index 0c97a9e8f..64fbc2fb6 100644 --- a/Assistant/Threads/SanityChecker.hs +++ b/Assistant/Threads/SanityChecker.hs @@ -42,7 +42,7 @@ sanityCheckerDailyThread = namedThread "SanityCheckerDaily" $ forever $ do go = do modifyDaemonStatus_ $ \s -> s { sanityCheckRunning = True } - now <- liftIO $ getPOSIXTime -- before check started + now <- liftIO getPOSIXTime -- before check started r <- either showerr return =<< (tryIO . batch) <~> dailyCheck modifyDaemonStatus_ $ \s -> s @@ -78,7 +78,7 @@ dailyCheck = do -- Find old unstaged symlinks, and add them to git. (unstaged, cleanup) <- liftIO $ Git.LsFiles.notInRepo False ["."] g - now <- liftIO $ getPOSIXTime + now <- liftIO getPOSIXTime forM_ unstaged $ \file -> do ms <- liftIO $ catchMaybeIO $ getSymbolicLinkStatus file case ms of |