diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-05-04 00:44:11 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-05-04 00:44:11 -0400 |
| commit | 8c09c17f6bcc1d9aaeab38eb4a6f7682139e8c65 (patch) | |
| tree | b58964b0a4eb383389d84d20c79fbd7f07f22b3d /Logs/UUIDBased.hs | |
| parent | 32de288c35b5cc728821c1c465c398f9bd8ba8d5 (diff) | |
use strict insertWith
Diffstat (limited to 'Logs/UUIDBased.hs')
| -rw-r--r-- | Logs/UUIDBased.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Logs/UUIDBased.hs b/Logs/UUIDBased.hs index b09d93f90..847d49923 100644 --- a/Logs/UUIDBased.hs +++ b/Logs/UUIDBased.hs @@ -83,7 +83,7 @@ changeLog t u v = M.insert u $ LogEntry (Date t) v {- Only add an LogEntry if it's newer (or at least as new as) than any - existing LogEntry for a UUID. -} addLog :: UUID -> LogEntry a -> Log a -> Log a -addLog = M.insertWith best +addLog = M.insertWith' best {- Converts a Log into a simple Map without the timestamp information. - This is a one-way trip, but useful for code that never needs to change |