summaryrefslogtreecommitdiff
path: root/Remote
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-12-20 12:23:49 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-12-20 12:23:49 -0400
commitda0bdc1a57d44ecfc7040affed725db4528d359a (patch)
tree03d2e38270517161e526c5c6fe196990b958a3ef /Remote
parentdc5ed8d3b677f3c45118f5d5a89ad528ede7b171 (diff)
Fix the hook special remote, which bitrotted a while ago.
Diffstat (limited to 'Remote')
-rw-r--r--Remote/Hook.hs7
1 files changed, 3 insertions, 4 deletions
diff --git a/Remote/Hook.hs b/Remote/Hook.hs
index ab84533b2..5c761f43b 100644
--- a/Remote/Hook.hs
+++ b/Remote/Hook.hs
@@ -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