map: Write map.dot to .git/annex, which avoids watch trying to annex it.

Command/Map.hs

@@ -39,6 +39,8 @@ start = do
 
 	umap <- uuidMap
 	trusted <- trustGet Trusted
+		
+	file <- (</>) <$> fromRepo gitAnnexDir <*> pure "map.dot"
 
 	liftIO $ writeFile file (drawMap rs umap trusted)
 	next $ next $
@@ -49,8 +51,6 @@ start = do
 				showOutput
 				liftIO $ boolSystem "dot" [Param "-Tx11", File file]
 			)
-	where
-		file = "map.dot"
 
 {- Generates a graph for dot(1). Each repository, and any other uuids, are
  - displayed as a node, and each of its remotes is represented as an edge

debian/changelog

@@ -11,6 +11,7 @@ git-annex (3.20120630) UNRELEASED; urgency=low
     faster than forking the more optimised external program.
   * SHAnE backends are now smarter about composite extensions, such as
     .tar.gz Closes: #680450
+  * map: Write map.dot to .git/annex, which avoids watch trying to annex it.
 
  -- Joey Hess <joeyh@debian.org>  Sun, 01 Jul 2012 15:04:37 -0400
 

doc/bugs/__34__git_annex_watch__34___adds_map.dot.mdwn

@@ -1,4 +1,8 @@
-"git annex watch" will add the file generated by "git annex map", which is probably not intended. Shouldn’t this file be created in /tmp or .git/annex/ or somewhere else?
+"git annex watch" will add the file generated by "git annex map", which is
+probably not intended. Shouldn’t this file be created in /tmp or
+.git/annex/ or somewhere else?
+
+> Indeed, so [[done]] --[[Joey]]
 
     /tmp $ cd test/
     /tmp/test $ git init

test.hs

@@ -550,9 +550,6 @@ test_map = "git-annex map" ~: intmpclonerepo $ do
 	git_annex "describe" ["origin", "origin repo"] @? "describe 2 failed"
 	-- --fast avoids it running graphviz, not a build dependency
 	git_annex "map" ["--fast"] @? "map failed"
-	doesFileExist "map.dot" @? "map.dot not generated"
-	c <- readFile "map.dot"
-	("this repo" `isInfixOf` c && "origin repo" `isInfixOf` c) @? ("map.dot bad content: " ++ c)
 
 test_uninit :: Test
 test_uninit = "git-annex uninit" ~: intmpclonerepo $ do