From cdbcd6f495580ee927a85af0581661b486c8ef77 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 1 Jul 2011 15:24:07 -0400
Subject: add web special remote

Generalized LocationLog to PresenceLog, and use a presence log to record
urls for the web special remote.
---
 UUID.hs | 16 ----------------
 1 file changed, 16 deletions(-)

(limited to 'UUID.hs')

diff --git a/UUID.hs b/UUID.hs
index 0723abeca..3ccc72906 100644
--- a/UUID.hs
+++ b/UUID.hs
@@ -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
-- 
cgit v1.2.3