diff options
author | Joey Hess <joey@kitenet.net> | 2011-07-01 15:24:07 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-07-01 15:30:42 -0400 |
commit | cdbcd6f495580ee927a85af0581661b486c8ef77 (patch) | |
tree | 87f3f882bb543bbed05147ce416805387a45082d /UUID.hs | |
parent | ceb887d82669b3ec694f31a899b59eefe0f5f352 (diff) |
add web special remote
Generalized LocationLog to PresenceLog, and use a presence log to record
urls for the web special remote.
Diffstat (limited to 'UUID.hs')
-rw-r--r-- | UUID.hs | 16 |
1 files changed, 0 insertions, 16 deletions
@@ -17,7 +17,6 @@ module UUID ( getUncachedUUID, prepUUID, genUUID, - prettyPrintUUIDs, describeUUID, uuidMap, uuidLog @@ -86,21 +85,6 @@ prepUUID = do uuid <- liftIO $ genUUID setConfig configkey uuid -{- Pretty-prints a list of UUIDs -} -prettyPrintUUIDs :: [UUID] -> Annex String -prettyPrintUUIDs uuids = do - here <- getUUID =<< Annex.gitRepo - m <- uuidMap - return $ unwords $ map (\u -> "\t" ++ prettify m u here ++ "\n") uuids - where - prettify m u here = base ++ ishere - where - base = if not $ null $ findlog m u - then u ++ " -- " ++ findlog m u - else u - ishere = if here == u then " <-- here" else "" - findlog m u = M.findWithDefault "" u m - {- Records a description for a uuid in the uuidLog. -} describeUUID :: UUID -> String -> Annex () describeUUID uuid desc = do |