From 97393762275408f67c2efeb5a00ce7874b918fe9 Mon Sep 17 00:00:00 2001
From: Aditya Manthramurthy <donatello@users.noreply.github.com>
Date: Wed, 29 Jan 2020 14:53:27 -0800
Subject: [PATCH] Fix live server test (#142)

* Update travis ghc to 8.8.2

* Fix live server test
---
 .travis.yml        | 2 +-
 test/LiveServer.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/.travis.yml b/.travis.yml
index 294960c..f7f552d 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -18,7 +18,7 @@ matrix:
   # Cabal
   - ghc: 8.4.4
   - ghc: 8.6.5
-  - ghc: 8.8.1
+  - ghc: 8.8.2
 
   # Stack
   - ghc: 8.6.5
diff --git a/test/LiveServer.hs b/test/LiveServer.hs
index dd8c080..ff10f1b 100644
--- a/test/LiveServer.hs
+++ b/test/LiveServer.hs
@@ -615,7 +615,7 @@ bucketPolicyFunTest = funTestWithBucket "Bucket Policy tests" $
     step "try a malformed policy, expect error"
     resE'' <- try $ setBucketPolicy bucket expectedPolicyJSON
     case resE'' of
-      Left exn -> liftIO $ exn @?= ServiceErr "MalformedPolicy" "Policy has invalid resource."
+      Left exn -> liftIO $ exn @?= ServiceErr "MalformedPolicy" "bucket name does not match"
       _        -> return ()
 
     let expectedPolicyJSON' = "{\"Version\":\"2012-10-17\",\"Statement\":[{\"Action\":[\"s3:GetBucketLocation\",\"s3:ListBucket\"],\"Effect\":\"Allow\",\"Principal\":{\"AWS\":[\"*\"]},\"Resource\":[\"arn:aws:s3:::" <> bucket <> "\"]},{\"Action\":[\"s3:GetObject\"],\"Effect\":\"Allow\",\"Principal\":{\"AWS\":[\"*\"]},\"Resource\":[\"arn:aws:s3:::" <> bucket <> "/*\"]}]}"