diff options
Diffstat (limited to 'Logs/Difference.hs')
| -rw-r--r-- | Logs/Difference.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Logs/Difference.hs b/Logs/Difference.hs index 8d37a09c4..fd93fc3cf 100644 --- a/Logs/Difference.hs +++ b/Logs/Difference.hs @@ -23,10 +23,10 @@ import Logs.UUIDBased import Logs.Difference.Pure recordDifferences :: Differences -> UUID -> Annex () -recordDifferences (Differences differences) uuid = do +recordDifferences ds@(Differences {}) uuid = do ts <- liftIO getPOSIXTime Annex.Branch.change differenceLog $ - showLog id . changeLog ts uuid (show differences) . parseLog Just + showLog id . changeLog ts uuid (showDifferences ds) . parseLog Just recordDifferences UnknownDifferences _ = return () -- Map of UUIDs that have Differences recorded. |