fix build

This commit is contained in:
Joey Hess 2014-10-23 16:52:05 -04:00
parent 8edf7a0fc3
commit 8ed1a0afee

View file

@ -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