diff options
Diffstat (limited to 'Logs/Activity.hs')
-rw-r--r-- | Logs/Activity.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Logs/Activity.hs b/Logs/Activity.hs index 6f5bf0deb..d7474704e 100644 --- a/Logs/Activity.hs +++ b/Logs/Activity.hs @@ -12,8 +12,6 @@ module Logs.Activity ( lastActivities, ) where -import Data.Time.Clock.POSIX - import Annex.Common import qualified Annex.Branch import Logs @@ -24,9 +22,9 @@ data Activity = Fsck recordActivity :: Activity -> UUID -> Annex () recordActivity act uuid = do - ts <- liftIO getPOSIXTime + c <- liftIO currentVectorClock Annex.Branch.change activityLog $ - showLog show . changeLog ts uuid act . parseLog readish + showLog show . changeLog c uuid act . parseLog readish lastActivities :: Maybe Activity -> Annex (Log Activity) lastActivities wantact = parseLog onlywanted <$> Annex.Branch.get activityLog |