added ifM and nuked 11 lines of code
no behavior changes
This commit is contained in:
parent
a4f72c9625
commit
60ab3d84e1
17 changed files with 151 additions and 162 deletions
|
@ -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"
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue