mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove checksum from WORM

Browse source 
with size and mtime in the key, it's redundant
This commit is contained in:
Joey Hess 2010-10-17 00:33:05 -04:00
parent c57b1a697c
commit a0b040524a
2 changed files with 9 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Commands.hs
View file

@ -54,10 +54,7 @@ options = [
findWanted :: CmdWants -> [String] -> Git.Repo -> IO [String]
findWanted FilesNotInGit params repo = do
files <- mapM (Git.notInRepo repo) params
return $ filter notstate $ foldl (++) [] files
where
-- never include files in the state directory
notstate f = stateLoc /= take (length stateLoc) f
return $ foldl (++) [] files
findWanted FilesInGit params repo = do
files <- mapM (Git.inRepo repo) params
return $ foldl (++) [] files
@ -82,8 +79,10 @@ parseCmd argv state = do
[Command _ action want] -> do
f <- findWanted want (drop 1 params)
(BackendTypes.repo state)
return (flags, map action f)
return (flags, map action $ filter notstate f)
where
-- never include files from the state directory
notstate f = stateLoc /= take (length stateLoc) f
getopt = case getOpt Permute options argv of
(flags, params, []) -> return (flags, params)
(_, _, errs) -> ioError (userError (concat errs ++ usage))