From 8ed1a0afee79699afbc8f08085aacc6cdf47d336 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 23 Oct 2014 16:52:05 -0400 Subject: [PATCH] fix build --- Remote/S3.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Remote/S3.hs b/Remote/S3.hs index 4815b09884..bf130b7aed 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -206,7 +206,7 @@ checkKey r h k = do showAction $ "checking " ++ name r #if MIN_VERSION_aws(0,10,0) rsp <- go - return (isJust $ S3.horMetadata r) + return (isJust $ S3.horMetadata rsp) #else catchMissingException $ do void go