diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-04-21 23:32:33 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-04-21 23:32:33 -0400 |
| commit | ed79596b758935a3f22bf6803bc082a6bbe10f58 (patch) | |
| tree | 885a8a50e68dafb39ec886cb31aa4c549fbeb35e /Logs | |
| parent | bee420bd2d0cbe16489b061b208083e2b8ba9d0e (diff) | |
noop
Diffstat (limited to 'Logs')
| -rw-r--r-- | Logs/Location.hs | 2 | ||||
| -rw-r--r-- | Logs/UUID.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/Logs/Location.hs b/Logs/Location.hs index b6d59b928..e27ece5d4 100644 --- a/Logs/Location.hs +++ b/Logs/Location.hs @@ -30,7 +30,7 @@ import Logs.Presence {- Log a change in the presence of a key's value in a repository. -} logChange :: Key -> UUID -> LogStatus -> Annex () logChange key (UUID u) s = addLog (logFile key) =<< logNow s u -logChange _ NoUUID _ = return () +logChange _ NoUUID _ = noop {- Returns a list of repository UUIDs that, according to the log, have - the value of a key. diff --git a/Logs/UUID.hs b/Logs/UUID.hs index 18cbee61e..d825e1127 100644 --- a/Logs/UUID.hs +++ b/Logs/UUID.hs @@ -73,7 +73,7 @@ recordUUID u = go . M.lookup u =<< uuidMap where go (Just "") = set go Nothing = set - go _ = return () + go _ = noop set = describeUUID u "" {- Read the uuidLog into a simple Map. |