diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-11-07 14:18:10 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-11-07 14:18:10 -0400 |
| commit | 9bfcb93e869c84ebb190099a6de03d051c301afb (patch) | |
| tree | 79e897b57a0ae03e47af898d41b06e1e7d9baec7 | |
| parent | 5acd3e5b78e07b6e1b3e1bdda600f35a3723ea77 (diff) | |
remove dead code
| -rw-r--r-- | Logs/UUID.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/Logs/UUID.hs b/Logs/UUID.hs index 1160dfcda..8da727228 100644 --- a/Logs/UUID.hs +++ b/Logs/UUID.hs @@ -16,7 +16,6 @@ module Logs.UUID ( uuidLog, describeUUID, - recordUUID, uuidMap, uuidMapLoad ) where @@ -68,15 +67,6 @@ fixBadUUID = M.fromList . map fixup . M.toList minimumPOSIXTimeSlice = 0.000001 isuuid s = length s == 36 && length (splitc '-' s) == 5 -{- Records the uuid in the log, if it's not already there. -} -recordUUID :: UUID -> Annex () -recordUUID u = go . M.lookup u =<< uuidMap - where - go (Just "") = set - go Nothing = set - go _ = noop - set = describeUUID u "" - {- The map is cached for speed. -} uuidMap :: Annex UUIDMap uuidMap = maybe uuidMapLoad return =<< Annex.getState Annex.uuidmap |