diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-09 21:02:38 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-09 21:02:38 -0400 |
| commit | af27920956c9ef59052662389bff1ba40efd1ea0 (patch) | |
| tree | ab518f4fab63076cb6f967ef2738e6431912e3d8 /Logs | |
| parent | ac78243ac1d1a832ee81ccc354e4e4bdda4a29e7 (diff) | |
Fix activity log parsing.
I had some cargo culting in there that used the wrong type, so it failed
to parse old logs, and overwrote them with the new log.
Diffstat (limited to 'Logs')
| -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 |