Merge branch 'master' into assistant

This commit is contained in:
Joey Hess 2012-07-17 12:27:12 -04:00
commit 30f7b1599c
5 changed files with 13 additions and 7 deletions

View file

@ -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