Permalink
Browse files

Asyncify

  • Loading branch information...
1 parent fa44085 commit b82791a34b57dc884eeaa377d4aa8105ddadfae5 Ian Duncan committed Jun 26, 2012
Showing with 6 additions and 4 deletions.
  1. +3 −1 GitMega.cabal
  2. +3 −3 Main.hs
View
@@ -26,4 +26,6 @@ executable git-mega
build-depends: base ==4.5.*,
text ==0.11.*,
concert < 0.2,
- mtl ==2.*
+ mtl ==2.*,
+ cmdtheline ==0.1.*,
+ data-default ==0.*
View
@@ -12,12 +12,12 @@ import Command.Update
gitRepos = getWorkingDirectory >>= listDirectory >>= filterM (isDirectory . (</> ".git"))
-updateAll = gitRepos >>= mapM_ update
+updateAll = gitRepos >>= mapM_ (async . update)
main :: IO ()
-main = runChoice help [(updateCmd, updateInfo)]
+main = run (updateCmd, updateInfo) -- runChoice help [(updateCmd, updateInfo)]
-help = undefined
+-- help = undefined
commandName :: Term String
commandName = pos 0 "help" posInfo { argName = "COMMAND" }

0 comments on commit b82791a

Please sign in to comment.