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)
keyenv =
[ env "KEY" (show k)
, env "HASH_1" hash_1
, env "HASH_2" hash_2
, env "HASH_1" (hashbits !! 0)
, env "HASH_2" (hashbits !! 1)
]
fileenv Nothing = []
fileenv (Just file) = [env "FILE" file]
[hash_1, hash_2, _rest] =
map takeDirectory $ splitPath $ hashDirMixed k
hashbits = map takeDirectory $ splitPath $ hashDirMixed k
lookupHook :: String -> String -> Annex (Maybe String)
lookupHook hooktype hook =do