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

set ANNEX_HASH_* always

Browse source
This commit is contained in:
Joey Hess 2011-04-29 14:04:20 -04:00
parent ecdc08dbe1
commit cf501d3b9b
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Remote/Hook.hs
View file

@ -69,16 +69,16 @@ hookSetup u c = do
return c'
hookEnv :: Key -> Maybe FilePath -> Maybe [(String, String)]
hookEnv k f = Just $ keyenv : fileenv f
hookEnv k f = Just $ fileenv f ++ keyenv
where
env s v = ("ANNEX_" ++ s, v)
keyenv = env "KEY" (show k)
fileenv Nothing = []
fileenv (Just file) =
[ env "FILE" file
keyenv =
[ env "KEY" (show k)
, env "HASH_1" (hashbits !! 0)
, env "HASH_2" (hashbits !! 1)
]
fileenv Nothing = []
fileenv (Just file) = [env "FILE" file]
hashbits = map takeDirectory $ splitPath $ hashDirMixed k
lookupHook :: String -> String -> Annex (Maybe String)