darcswatch 0.4 → 0.4.1

raw patch · 4 files changed

+12/−4 lines, 4 files

Files

README +1/−1
darcswatch.cabal +1/−1
src/Darcs/Watch/PullRepos.hs +10/−1
src/Darcs/Watch/Storage.hs +0/−1

README view

@@ -1,6 +1,6 @@ darcswatch -© 2008 Joachim Breitner <mail@joachim-breitner.de>+© 2008-2010 Joachim Breitner <mail@joachim-breitner.de>  This program tracks darcs patches and repositories, giving an overview over their state (applied or not applied).

darcswatch.cabal view

@@ -1,5 +1,5 @@ Name:            darcswatch-version:         0.4+version:         0.4.1 Category:        Distribution name:            darcswatch author:          Joachim Breitner

src/Darcs/Watch/PullRepos.hs view

@@ -68,4 +68,13 @@  {- forkSequence = sequence -} -- Enable for parallel downloads-forkSequence acts = mapM (\act -> newEmptyMVar >>= \mvar -> forkIO (act >>= putMVar mvar) >> return mvar) acts >>= mapM takeMVar+forkSequence acts = do+    sem <- newQSem 5+    mvars <- forM acts $ \act -> do+        mvar <- newEmptyMVar+        forkIO $ do +            waitQSem sem+            act >>= putMVar mvar+            signalQSem sem+        return mvar+    mapM takeMVar mvars

src/Darcs/Watch/Storage.hs view

@@ -30,7 +30,6 @@ import System.Directory import Data.List import Control.Applicative-import System.Directory import Control.Monad import Data.Char