From b3431cb37b5b7aff11ce9a25102bf5446b59a18c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 21 Oct 2012 00:34:48 -0400
Subject: !! removal

---
 Remote/Hook.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'Remote/Hook.hs')

diff --git a/Remote/Hook.hs b/Remote/Hook.hs
index 716a81835..f97e110d8 100644
--- a/Remote/Hook.hs
+++ b/Remote/Hook.hs
@@ -69,10 +69,10 @@ hookEnv k f = Just <$> mergeenv (fileenv f ++ keyenv)
 			M.union (M.fromList l) 
 				<$> M.fromList <$> getEnvironment
 		env s v = ("ANNEX_" ++ s, v)
-		keyenv =
-			[ env "KEY" (key2file k)
-			, env "HASH_1" (hashbits !! 0)
-			, env "HASH_2" (hashbits !! 1)
+		keyenv = catMaybes
+			[ Just $ env "KEY" (key2file k)
+			, env "HASH_1" <$> headMaybe hashbits
+			, env "HASH_2" <$> headMaybe (drop 1 hashbits)
 			]
 		fileenv Nothing = []
 		fileenv (Just file) =  [env "FILE" file]
-- 
cgit v1.2.3