diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-03-14 17:43:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-03-14 17:43:34 -0400 |
| commit | 60ab3d84e188b8dd3a284d962df25bbee41ff1cb (patch) | |
| tree | 768d4f632bab0152dbc1ca72f81fc3b9c7915c0a /Command/Map.hs | |
| parent | a4f72c9625486786a4549cf4db1b542ea89da7c7 (diff) | |
added ifM and nuked 11 lines of code
no behavior changes
Diffstat (limited to 'Command/Map.hs')
| -rw-r--r-- | Command/Map.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Command/Map.hs b/Command/Map.hs index da7a048a4..bdb86f95a 100644 --- a/Command/Map.hs +++ b/Command/Map.hs @@ -41,14 +41,14 @@ start = do trusted <- trustGet Trusted liftIO $ writeFile file (drawMap rs umap trusted) - next $ next $ do - fast <- Annex.getState Annex.fast - if fast - then return True - else do + next $ next $ + ifM (Annex.getState Annex.fast) + ( return True + , do showLongNote $ "running: dot -Tx11 " ++ file showOutput liftIO $ boolSystem "dot" [Param "-Tx11", File file] + ) where file = "map.dot" |