I believe I'm only removing unused code here, but perhaps I'm mistaken? Tue Aug 11 15:37:34 BST 2009 Eric Kow <[email protected]> * Remove optimize --checkpoint cruft.
New patches: [Remove optimize --checkpoint cruft. Eric Kow <[email protected]>**20090811143734 Ignore-this: c36c818704171289ff388cdd539626d5 ] hunk ./src/Darcs/Commands/Optimize.lhs 26 module Darcs.Commands.Optimize ( optimize ) where import Control.Monad ( when, unless ) import Data.Maybe ( isJust ) -import Text.Regex ( mkRegex, matchRegex ) import System.Directory ( getDirectoryContents, doesDirectoryExist ) import Darcs.Hopefully ( hopefully, info ) hunk ./src/Darcs/Commands/Optimize.lhs 32 import Darcs.Commands ( DarcsCommand(..), nodefaults ) import Darcs.Arguments ( DarcsFlag( Compress, UnCompress, NoCompress, Reorder, - TagName, Relink, RelinkPristine ), reorder_patches, uncompress_nocompress, hunk ./src/Darcs/Commands/Optimize.lhs 45 tentativelyReplacePatches, cleanRepository, amInRepository, finalizeRepositoryChanges ) import Darcs.Ordered ( RL(..), unsafeUnRL, (+<+), mapFL_FL, reverseRL, mapRL, concatRL ) -import Darcs.Patch.Info ( PatchInfo, just_name, human_friendly ) +import Darcs.Patch.Info ( PatchInfo, just_name ) import Darcs.Patch ( RepoPatch ) import ByteStringUtils ( gzReadFilePS ) hunk ./src/Darcs/Commands/Optimize.lhs 48 -import Darcs.Patch.Depends ( deep_optimize_patchset, slightly_optimize_patchset, +import Darcs.Patch.Depends ( slightly_optimize_patchset, get_patches_beyond_tag, get_patches_in_tag, ) import Darcs.Lock ( maybeRelink, gzWriteAtomicFilePS, writeAtomicFilePS ) hunk ./src/Darcs/Commands/Optimize.lhs 55 import Darcs.RepoPath ( toFilePath ) import Darcs.Utils ( withCurrentDirectory ) import Progress ( debugMessage ) -import Printer ( putDocLn, text, ($$) ) import Darcs.SlurpDirectory ( slurp, list_slurpy_files ) import Darcs.Repository.Pristine ( identifyPristine, pristineDirectory ) import Darcs.Sealed ( FlippedSeal(..), unsafeUnseal ) hunk ./src/Darcs/Commands/Optimize.lhs 73 "\n" ++ optimize_help_inventory ++ -- "\n" ++ optimize_help_reorder ++ "\n" ++ optimize_help_relink ++ - -- checkpoints and uncompression are least useful, so they are last. + -- uncompression is least useful, so it is last. "\n" ++ optimize_help_compression ++ hunk ./src/Darcs/Commands/Optimize.lhs 75 - "\n" ++ optimize_help_checkpoint ++ "\n" ++ "There is one more optimization which CAN NOT be performed by this\n" ++ "command. Every time your record a patch, a new inventory file is\n" ++ hunk ./src/Darcs/Commands/Optimize.lhs 128 optimizeInventory repository debugMessage "Done writing out a nice copy of the inventory." -optimize_help_checkpoint :: String -optimize_help_checkpoint = - "If the repository is in `old-fashioned-inventory' format, the `darcs\n" ++ - "optimize --checkpoint' command creates a checkpoint of the latest tag.\n" ++ - "This checkpoint is used by `darcs get --partial' to create partial\n" ++ - "repositories. With the `--tag' option, checkpoints for older tags can\n" ++ - "be created. In newer repository formats, this feature has been\n" ++ - "replaced by `darcs get --lazy', which does not require checkpoints.\n" - -get_tag :: RepoPatch p => [DarcsFlag] -> Repository p -> IO (Maybe PatchInfo) -get_tag [] r = do ps <- read_repo r - case filter is_tag $ lasts $ mapRL (mapRL info) ps of - [] -> do putStrLn "There is no tag to checkpoint!" - return Nothing - (pinfo:_) -> return $ Just pinfo -get_tag (TagName t:_) r = - do ps <- read_repo r - case filter (match_tag t) $ lasts $ mapRL (mapRL info) ps of - (pinfo:_) -> return $ Just pinfo - _ -> case filter (match_tag t) $ - lasts $ mapRL (mapRL info) $ deep_optimize_patchset ps of - (pinfo:_) -> return $ Just pinfo - _ -> do putStr "Cannot checkpoint any tag " - putStr $ "matching '"++t++"'\n" - return Nothing -get_tag (_:fs) r = get_tag fs r - -lasts :: [[a]] -> [a] -lasts [] = [] -lasts (x@(_:_):ls) = last x : lasts ls -lasts ([]:ls) = lasts ls - -mymatch :: String -> PatchInfo -> Bool -mymatch r = match_name $ matchRegex (mkRegex r) -match_name :: (String -> Maybe a) -> PatchInfo -> Bool -match_name ch pinfo = isJust $ ch (just_name pinfo) -match_tag :: String -> PatchInfo -> Bool -match_tag ('^':n) = mymatch $ "^TAG "++n -match_tag n = mymatch $ "^TAG .*"++n - - optimize_help_compression :: String optimize_help_compression = "By default patches are compressed with zlib (RFC 1951) to reduce\n" ++ Context: [darcs.cabal turn on -fwarn-tabs per dupree [email protected]**20090807013047 Ignore-this: c7961b5512d2f8392f3484c81ca197e0 ] [Add script that tricks cabal into installing our build-depends only. Petr Rockai <[email protected]>**20090805152653 Ignore-this: 6a70f5ff464d26a944b81967606e7af0 ] [Avoid unescaped hyphens and backslashes in manpage. Trent W. Buck <[email protected]>**20090803063335 Ignore-this: 4db2b484b68590f754d36f4751e93962 Fixes these bugs: W: darcs: manpage-has-errors-from-man darcs.1.gz: 297: a tab character is not allowed in an escape name I: darcs: hyphen-used-as-minus-sign darcs.1.gz (87 times) http://lintian.debian.org/tags/manpage-has-errors-from-man.html http://lintian.debian.org/tags/hyphen-used-as-minus-sign.html ] [Typo: s/comand/command/. Trent W. Buck <[email protected]>**20090803042007 Ignore-this: fcbe6f2cbcb3743872b0431b11dea10c Thanks to http://lintian.debian.org/tags/spelling-error-in-binary.html. ] [Update hpc.README to use Cabal. Petr Rockai <[email protected]>**20090730190304 Ignore-this: 7f63751a7daa418ffdca2ca6d20af1b1 ] [Add a flag for enabling HPC for the darcs library. Petr Rockai <[email protected]>**20090730185959 Ignore-this: e0246133e84e8547e223f61b67a28066 ] [Combine the HPC tix files after each test in ShellHarness. Petr Rockai <[email protected]>**20090730185951 Ignore-this: 577a6e1614aa8c5ff6f25d9df6f81554 This is done when HPCTIXDIR is set, so presumably we are generating coverage report. We need to do this, because otherwise, a full testsuite run produces over a gigabyte of tixfiles, even though the combined tix is less than 200K. ] [Require haskell zlib, dropping the legacy internal zlib binding. Petr Rockai <[email protected]>**20090722091325 Ignore-this: 348c1fd005fe19900e4a9706567b4ee0 ] [Fix link to autoconf tarball. Eric Kow <[email protected]>**20090723135420 Ignore-this: cfe87256fbd5af286a00fbb84ca443d0 ] [Update web page for 2.3.0 release. Eric Kow <[email protected]>**20090723134705 Ignore-this: dfa04b99e5c0170448d635bf0e496a66 ] [Resolve conflict between autoconf removal and version number updates. Eric Kow <[email protected]>**20090723133543 Ignore-this: efcf724bf0230243cee1e88502428ccd ] [Makefile: fix dependency on no longer existing distclean target. Eric Kow <[email protected]>**20090722093438 Ignore-this: d0f8da797e26b0c42a2da76eddd4ed31 ] [Make utf8-string mandatory. Eric Kow <[email protected]>**20090721194433 Ignore-this: cd8a94b3e4e41bb938e82dffbcb27e2d ] [Remove UTF8 module completely. Eric Kow <[email protected]>**20090721194220 Ignore-this: f4ec3fe853ecbc928a8d3e3c3b9aa07c The utf8-string package has been the default for a while. Now we're wholly dependent on it. ] [Add support for skipping tests (exit 200). Petr Rockai <[email protected]>**20090720095346 Ignore-this: 133cb02e8cca03a4678068450cb150a9 ] [Remove the --checkpoint option from the UI. Petr Rockai <[email protected]>**20090720093634 Ignore-this: 2fb627cd1e64bbe264fda6e19f0b085b ] [Remove the support for writing out new checkpoints. Petr Rockai <[email protected]>**20090720091809 Ignore-this: 87eb23fe7604ed0abe5c38daafb87a7e ] [Remove unused determine_release_state.pl. Eric Kow <[email protected]>**20090721205227 Ignore-this: 15331bbb258fbdeb6bd4887c8dabb8ed ] [Remove ununsed test/shell_harness.hs. Eric Kow <[email protected]>**20090721192027 Ignore-this: 7efbe97744c698beecd4f17a09868467 ] [Remove autoconf support and cut GNUmakefile to only build manual and tags. Petr Rockai <[email protected]>**20090717160355 Ignore-this: 8a45c095c566172076adbe6e44b37827 ] [Slightly refactor the run function in ShellHarness. Petr Rockai <[email protected]>**20090714134205 Ignore-this: 92c7f05b9c4d6973e95706f23ea27dfc ] [Slightly refactor test machinery in Setup.lhs. Petr Rockai <[email protected]>**20090714134119 Ignore-this: 32206a331658d407d9c0fb3b48405db6 ] [Use tee in pending_has_conflicts.sh for easier debugging. Petr Rockai <[email protected]>**20090713180404 Ignore-this: 7b96b7f7df6358ddb0466cfe58803f71 ] [Roll back the getSymbolicLinkStatus workaround, since it constitutes a fd leak. Petr Rockai <[email protected]>**20090710143149 Ignore-this: cd2aa7e13cc902852a7c5d0855d55538 rolling back: Sun Jun 21 17:39:42 CEST 2009 Petr Rockai <[email protected]> * Avoid getSymbolicLinkStatus in mmap implementation, works around GHC 6.8.2 bug. ] [Note darcs 2.3 pre-release and darcs 2.2 stable versions in website. Eric Kow <[email protected]>**20090716133323 Ignore-this: bbe9c36213a07890816b8599f2f29aee ] [Remove website automation from Makefile. Eric Kow <[email protected]>**20090716133230 Ignore-this: f0cdb9afaa9d314321b345a08e2784bf ] [Rename index.html.in to index.html, forgoing website automation. Eric Kow <[email protected]>**20090716133023 Ignore-this: a4c62db2d3ca341e95262cd05328473f The website automation allowed us to avoid duplication of information (ie. version numbers), but we're in the process of changing our build and release system, which breaks the site. For now, we go for simplicity and robustness, perhaps restoring the automation in the future when things have settled down somewhat. ] [Remove bytestring flag from darcs.cabal. Eric Kow <[email protected]>**20090714165021 Ignore-this: 4325773231f9679054c7d045657bdae0 Now that we're requiring GHC 6.8 or above, we always use the external bytestring package. ] [Move email unit tests to Darcs.Test module space Reinier Lamers <[email protected]>**20090629203409 Ignore-this: 3187d24822e7a125a46e0a273956d792 ] [Teach cabal about new Darcs.Test modules Reinier Lamers <[email protected]>**20090629193208 Ignore-this: c27c8398fd637e100259fdf1f4d42e0a ] [Move unit tests to Darcs.Test module space Reinier Lamers <[email protected]>**20090629192934 Ignore-this: e88d9ecb7ca8f0b5679fba2cd2813ff0 ] [Bound size of trees generated in Darcs.Patch.QuickCheck Reinier Lamers <[email protected]>**20090628134952 Ignore-this: c499b850ad5ca15d4bada56b69ee98f3 This keeps the 'Checking that tree flattenings are consistent' test from occasionally taking hours and hours to complete. The maximum depth of 5 was found by experiment. ] [Add some comments in Darcs.Patch.QuickCheck Reinier Lamers <[email protected]>**20090628134908 Ignore-this: c66a386865832e75427f99febfb91a91 ] [Avoid getSymbolicLinkStatus in mmap implementation, works around GHC 6.8.2 bug. Petr Rockai <[email protected]>**20090621153942 Ignore-this: 91092453d97c87edfc4e46b11e4ae208 ] [TAG 2.3.0 Petr Rockai <[email protected]>**20090723115125 Ignore-this: e326d4ddff92c578e8fe8a3c23d00193 ] Patch bundle hash: 60680a2653053bfa0f8dc33dcc8228213a167e5b
_______________________________________________ darcs-users mailing list [email protected] http://lists.osuosl.org/mailman/listinfo/darcs-users
