summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-07-17 12:27:12 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-07-17 12:27:12 -0400
commit30f7b1599cd02b8b9bbbb76463c5d4f84cba3552 (patch)
tree43998df0936fa64c2d3deeb0c5216bc6eb0d41df /Command
parentc34d8ae088e284b7585b7e32330945d1e9c922f2 (diff)
parentf5f88794713ebbbbc177d064f074a80ca23e9b79 (diff)
Merge branch 'master' into assistant
Diffstat (limited to 'Command')
-rw-r--r--Command/Map.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Map.hs b/Command/Map.hs
index 65e28945f..0773f6828 100644
--- a/Command/Map.hs
+++ b/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