add copy count

Command/Whereis.hs

@@ -12,7 +12,6 @@ import Control.Monad.State (liftIO)
 import qualified Annex
 import LocationLog
 import Command
-import Content
 import Messages
 import UUID
 import Types
@@ -33,9 +32,15 @@ perform :: Key -> CommandPerform
 perform key = do
 	g <- Annex.gitRepo
 	uuids <- liftIO $ keyLocations g key
-	pp <- prettyPrintUUIDs uuids
-	showLongNote $ pp
-	showProgress
+	let num = length uuids
+	showNote $ show num ++ " " ++ copiesplural num
 	if null $ uuids
 		then return Nothing
-		else return $ Just $ return True
+		else do
+			pp <- prettyPrintUUIDs uuids
+			showLongNote $ pp
+			showProgress	
+			return $ Just $ return True
+	where
+		copiesplural 1 = "copy"
+		copiesplural _ = "copies"