update for aws 0.10's better handling of DNE for HEAD

Kept support for older aws, since Debian has 0.9.2 still.

Remote/S3.hs

@@ -203,23 +203,30 @@ remove h k
 checkKey :: Remote -> S3Handle -> CheckPresent
 checkKey r h k = do
 	showAction $ "checking " ++ name r
+#if MIN_VERSION_aws(0,10,0)
+	rsp <- go
+	return (isJust $ S3.horMetadata r)
+#else
 	catchMissingException $ do
-		void $ sendS3Handle h $
+		void go
-			S3.headObject (bucket (hinfo h)) (bucketObject (hinfo h) k)
 		return True
-	
+#endif
-{- Catch exception headObject returns when an object is not present
- - in the bucket, and returns False. All other exceptions indicate a
- - check error and are let through. -}
-catchMissingException :: Annex Bool -> Annex Bool
-catchMissingException a = catchJust missing a (const $ return False)
   where
-	-- This is not very good; see
+	go = sendS3Handle h $
-	-- https://github.com/aristidb/aws/issues/121
+		S3.headObject (bucket (hinfo h)) (bucketObject (hinfo h) k)
-	missing :: AWS.HeaderException -> Maybe ()
+
-	missing e
+#if ! MIN_VERSION_aws(0,10,0)
-		| AWS.headerErrorMessage e == "ETag missing" = Just ()
+	{- Catch exception headObject returns when an object is not present
-		| otherwise = Nothing
+	 - in the bucket, and returns False. All other exceptions indicate a
+	 - check error and are let through. -}
+	catchMissingException :: Annex Bool -> Annex Bool
+	catchMissingException a = catchJust missing a (const $ return False)
+	  where
+		missing :: AWS.HeaderException -> Maybe ()
+		missing e
+			| AWS.headerErrorMessage e == "ETag missing" = Just ()
+			| otherwise = Nothing
+#endif
 
 {- Generate the bucket if it does not already exist, including creating the
  - UUID file within the bucket.