aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2017-11-07 14:18:10 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2017-11-07 14:18:10 -0400
commit9bfcb93e869c84ebb190099a6de03d051c301afb (patch)
tree79e897b57a0ae03e47af898d41b06e1e7d9baec7
parent5acd3e5b78e07b6e1b3e1bdda600f35a3723ea77 (diff)
remove dead code
-rw-r--r--Logs/UUID.hs10
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