diff options
Diffstat (limited to 'Logs/Activity.hs')
| -rw-r--r-- | Logs/Activity.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Logs/Activity.hs b/Logs/Activity.hs index 45262a633..9738fdb1c 100644 --- a/Logs/Activity.hs +++ b/Logs/Activity.hs @@ -26,7 +26,7 @@ recordActivity :: Activity -> UUID -> Annex () recordActivity act uuid = do ts <- liftIO getPOSIXTime Annex.Branch.change activityLog $ - showLog id . changeLog ts uuid (show act) . parseLog readish + showLog show . changeLog ts uuid act . parseLog readish lastActivities :: Maybe Activity -> Annex (Log Activity) lastActivities wantact = parseLog onlywanted <$> Annex.Branch.get activityLog |