darcs-benchmark 0.1.2 → 0.1.3

raw patch · 2 files changed

+6/−4 lines, 2 files

Files

• Benchmark.hs +5/−3
• darcs-benchmark.cabal +1/−1

@@ -67,8 +67,9 @@   cleanup   return res -defaultrepo :: FilePath -> FilePath-defaultrepo path = (path </> "_darcs" </> "prefs" </> "defaultrepo")+defaultrepo, sources :: FilePath -> FilePath+defaultrepo path = path </> "_darcs" </> "prefs" </> "defaultrepo"+sources path = path </> "_darcs" </> "prefs" </> "sources"  prepare :: String -> Command () prepare repo = do@@ -83,7 +84,8 @@   liftIO $ copyTree origrepo playrepo   echo_n "."   wd <- pwd-  liftIO $ writeFile (defaultrepo playrepo) (wd </> origrepo)+  liftIO $ do writeFile (defaultrepo playrepo) (wd </> origrepo)+              removeFile (sources playrepo) `catch` \_ -> return ()  prepareIfDifferent :: String -> Command () prepareIfDifferent repo = do

@@ -1,5 +1,5 @@ name:          darcs-benchmark-version:       0.1.2+version:       0.1.3 synopsis:      Comparative benchmark suite for darcs.  description: A simple tool to compare performance of different Darcs 2.x