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

Fix the hook special remote, which bitrotted a while ago.

Browse source
This commit is contained in:
Joey Hess 2011-12-20 12:23:49 -04:00
parent dc5ed8d3b6
commit da0bdc1a57
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Remote/Hook.hs
View file

@ -62,13 +62,12 @@ hookEnv k f = Just $ fileenv f ++ keyenv
env s v = ("ANNEX_" ++ s, v) env s v = ("ANNEX_" ++ s, v)
keyenv = keyenv =
[ env "KEY" (show k) [ env "KEY" (show k)
, env "HASH_1" hash_1 , env "HASH_1" (hashbits !! 0)
, env "HASH_2" hash_2 , env "HASH_2" (hashbits !! 1)
] ]
fileenv Nothing = [] fileenv Nothing = []
fileenv (Just file) = [env "FILE" file] fileenv (Just file) = [env "FILE" file]
[hash_1, hash_2, _rest] = hashbits = map takeDirectory $ splitPath $ hashDirMixed k
map takeDirectory $ splitPath $ hashDirMixed k
lookupHook :: String -> String -> Annex (Maybe String) lookupHook :: String -> String -> Annex (Maybe String)
lookupHook hooktype hook =do lookupHook hooktype hook =do

1
debian/changelog vendored
View file

@ -3,6 +3,7 @@ git-annex (3.20111212) UNRELEASED; urgency=low
* Union merge now finds the least expensive way to represent the merge. * Union merge now finds the least expensive way to represent the merge.
* reinject: Add a sanity check for using an annexed file as the source file. * reinject: Add a sanity check for using an annexed file as the source file.
* Properly handle multiline git config values. * Properly handle multiline git config values.
* Fix the hook special remote, which bitrotted a while ago.
-- Joey Hess <joeyh@debian.org> Mon, 12 Dec 2011 01:57:49 -0400 -- Joey Hess <joeyh@debian.org> Mon, 12 Dec 2011 01:57:49 -0400