mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove dead code

Browse source
This commit is contained in:
Joey Hess 2017-11-07 14:18:10 -04:00
parent d97ab71d38
commit 7ad1d3210f
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Logs/UUID.hs
View file

@ -16,7 +16,6 @@
module Logs.UUID ( module Logs.UUID (
uuidLog, uuidLog,
describeUUID, describeUUID,
recordUUID,
uuidMap, uuidMap,
uuidMapLoad uuidMapLoad
) where ) where
@ -68,15 +67,6 @@ fixBadUUID = M.fromList . map fixup . M.toList
minimumPOSIXTimeSlice = 0.000001 minimumPOSIXTimeSlice = 0.000001
isuuid s = length s == 36 && length (splitc '-' s) == 5 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. -} {- The map is cached for speed. -}
uuidMap :: Annex UUIDMap uuidMap :: Annex UUIDMap
uuidMap = maybe uuidMapLoad return =<< Annex.getState Annex.uuidmap uuidMap = maybe uuidMapLoad return =<< Annex.getState Annex.uuidmap