From 3dbba26275d1c7ae895962b7c66e7774a716cc91 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 22 Oct 2010 15:56:57 -0400
Subject: reorg

---
 Backend/File.hs | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'Backend/File.hs')

diff --git a/Backend/File.hs b/Backend/File.hs
index 15d8f4a26..797d48747 100644
--- a/Backend/File.hs
+++ b/Backend/File.hs
@@ -102,21 +102,6 @@ copyFromRemote r key file = do
 		location = annexLocation r key
 		sshlocation = (Git.urlHost r) ++ ":" ++ location
 
-showLocations :: Key -> Annex ()
-showLocations key = do
-	g <- Annex.gitRepo
-	u <- getUUID g
-	uuids <- liftIO $ keyLocations g key
-	let uuidsf = filter (\v -> v /= u) uuids
-	ppuuids <- prettyPrintUUIDs uuidsf
-	if (0 < length uuidsf)
-		then showLongNote $ "Try making some of these repositories available:\n" ++ ppuuids
-		else showLongNote $ "No other repository is known to contain the file."
-		
-showTriedRemotes remotes =
-	showLongNote $ "I was unable to access these remotes: " ++
-		(Remotes.list remotes)
-
 {- Checks remotes to verify that enough copies of a key exist to allow
  - for a key to be safely removed (with no data loss), and fails with an
  - error if not. -}
@@ -163,3 +148,18 @@ checkRemoveKey key = do
 			return False
 		unsafe = showNote "unsafe"
 		hint = showLongNote $ "(Use --force to override this check, or adjust annex.numcopies.)"
+
+showLocations :: Key -> Annex ()
+showLocations key = do
+	g <- Annex.gitRepo
+	u <- getUUID g
+	uuids <- liftIO $ keyLocations g key
+	let uuidsf = filter (\v -> v /= u) uuids
+	ppuuids <- prettyPrintUUIDs uuidsf
+	if (0 < length uuidsf)
+		then showLongNote $ "Try making some of these repositories available:\n" ++ ppuuids
+		else showLongNote $ "No other repository is known to contain the file."
+		
+showTriedRemotes remotes =
+	showLongNote $ "I was unable to access these remotes: " ++
+		(Remotes.list remotes)
-- 
cgit v1.2.3