[arch-commits] Commit in postgrest/trunk (PKGBUILD postgrest-hspec-wai-0.10.patch)
Felix Yan
felixonmars at archlinux.org
Sat Apr 4 19:08:44 UTC 2020
Date: Saturday, April 4, 2020 @ 19:08:43
Author: felixonmars
Revision: 611680
upgpkg: postgrest 7.0.0-1
Modified:
postgrest/trunk/PKGBUILD
Deleted:
postgrest/trunk/postgrest-hspec-wai-0.10.patch
--------------------------------+
PKGBUILD | 21 -
postgrest-hspec-wai-0.10.patch | 568 ---------------------------------------
2 files changed, 5 insertions(+), 584 deletions(-)
Modified: PKGBUILD
===================================================================
--- PKGBUILD 2020-04-04 18:58:27 UTC (rev 611679)
+++ PKGBUILD 2020-04-04 19:08:43 UTC (rev 611680)
@@ -2,8 +2,8 @@
# Contributor: Arch Haskell Team <arch-haskell at haskell.org>
pkgname=postgrest
-pkgver=6.0.2
-pkgrel=120
+pkgver=7.0.0
+pkgrel=1
pkgdesc="REST API for any Postgres database"
url="https://github.com/begriffs/postgrest"
license=("MIT")
@@ -22,24 +22,13 @@
makedepends=('ghc' 'haskell-aeson-qq' 'haskell-async' 'haskell-hspec' 'haskell-hspec-wai'
'haskell-hspec-wai-json' 'haskell-monad-control' 'haskell-transformers-base')
checkdepends=('pifpaf' 'postgresql' 'procps-ng')
-source=("$pkgname-$pkgver.tar.bz2::https://github.com/begriffs/postgrest/archive/v$pkgver.tar.gz"
- postgrest-swagger-2.4.patch::https://github.com/PostgREST/postgrest/pull/1326.patch
- postgrest-hspec-wai-0.10.patch
- postgrest-configuration-pg-0.2.patch::https://github.com/PostgREST/postgrest/pull/1457.patch)
-sha512sums=('abdcec3291c2216cb7383e13c80cb36c7bbecaded95ebebdc4482e44418d11abafab591ed1e5568ac38cdfc8e3f8b2c6c1c2a0e3e846ee6f97ab48b42c4c580d'
- 'd8c654e55e424c8ad29c2791362109af6d0ae94a04d8726946f95caa1bd6b11d9a818069df61e03591e02b54ff15b86e4097375343e28f9354f7fafa5efdcee1'
- '22da00f9fbdfc70b6db76d3cbf7f2406091131868077b439c35925b5fc7b56dcf218b13e2dca4c37b81e4bbba686040b2ad04086201c60885589c61bdd5df088'
- 'c391a2ff289469115c7fd932753bedc8a1f7ba283e3ca21ffaea64c25eb1678adc1519ad75e8353556444c201d06b815f57e768d12dec2e0b1770d13baaeb4d6')
+source=("$pkgname-$pkgver.tar.bz2::https://github.com/begriffs/postgrest/archive/v$pkgver.tar.gz")
+sha512sums=('e52bca7c4ab37909b57b8d004244e7b0471464141cea5193ed01e39a60f7adb551064d3d3dd4230042b04730fdf8d6b8151bb3789b90c413680e6a3e496c383c')
prepare() {
cd $pkgname-$pkgver
- patch -p1 -i ../postgrest-swagger-2.4.patch
- patch -p1 -i ../postgrest-hspec-wai-0.10.patch
- patch -p1 -i ../postgrest-configuration-pg-0.2.patch || :
- sed -i -e 's/< *4/<5/' -e 's/< *1/<2/' -e 's/< *3.3/<4/' -e 's/< *0/<1/' -e 's/< *2.9/<3.2/' -e 's/< *2.5/<3/' $pkgname.cabal
-
+ sed -i 's/< *4.19/<5/' $pkgname.cabal
sed -i -e '/ fail /d' src/PostgREST/Config.hs
-
sed -i 's/5432/9824/' test/fixtures/dumpfixture.sh
}
Deleted: postgrest-hspec-wai-0.10.patch
===================================================================
--- postgrest-hspec-wai-0.10.patch 2020-04-04 18:58:27 UTC (rev 611679)
+++ postgrest-hspec-wai-0.10.patch 2020-04-04 19:08:43 UTC (rev 611680)
@@ -1,568 +0,0 @@
-From 228782ed982b61c26893e4af99a8c34487fd08f6 Mon Sep 17 00:00:00 2001
-From: Robert Vollmert <rob at vllmrt.net>
-Date: Sat, 7 Mar 2020 12:28:26 +0100
-Subject: [PATCH 1/3] Update stack.yaml.lock for HSYaml extra-deps.
-
----
- stack.yaml.lock | 16 +++++++++++++++-
- 1 file changed, 15 insertions(+), 1 deletion(-)
-
-diff --git a/stack.yaml.lock b/stack.yaml.lock
-index 008e8126..d08997c3 100644
---- a/stack.yaml.lock
-+++ b/stack.yaml.lock
-@@ -3,7 +3,21 @@
- # For more information, please see the documentation at:
- # https://docs.haskellstack.org/en/stable/lock_files
-
--packages: []
-+packages:
-+- completed:
-+ hackage: HsYAML-0.2.1.0 at sha256:e4677daeba57f7a1e9a709a1f3022fe937336c91513e893166bd1f023f530d68,5311
-+ pantry-tree:
-+ size: 1340
-+ sha256: 21f61bf9cad31674126b106071dd9b852e408796aeffc90eec1792f784107eff
-+ original:
-+ hackage: HsYAML-0.2.1.0 at sha256:e4677daeba57f7a1e9a709a1f3022fe937336c91513e893166bd1f023f530d68,5311
-+- completed:
-+ hackage: HsYAML-aeson-0.2.0.0 at sha256:04796abfc01cffded83f37a10e6edba4f0c0a15d45bef44fc5bb4313d9c87757,1791
-+ pantry-tree:
-+ size: 234
-+ sha256: 67cc9ba17c79e71d3abdb465a3ee2825477856fff3b8b7d543cbbbefdae9a9d9
-+ original:
-+ hackage: HsYAML-aeson-0.2.0.0 at sha256:04796abfc01cffded83f37a10e6edba4f0c0a15d45bef44fc5bb4313d9c87757,1791
- snapshots:
- - completed:
- size: 523878
-
-From a4492b6117b3c31a0e09c2988bb8de394ec77550 Mon Sep 17 00:00:00 2001
-From: Robert Vollmert <rob at vllmrt.net>
-Date: Sat, 7 Mar 2020 13:46:22 +0100
-Subject: [PATCH 2/3] Upgrade hspec-wai dependency to 0.10.
-
----
- postgrest.cabal | 8 +++----
- stack.yaml | 2 ++
- stack.yaml.lock | 14 ++++++++++++
- test/Feature/AndOrParamsSpec.hs | 2 +-
- test/Feature/AsymmetricJwtSpec.hs | 2 +-
- test/Feature/AudienceJwtSecretSpec.hs | 2 +-
- test/Feature/AuthSpec.hs | 2 +-
- test/Feature/BinaryJwtSecretSpec.hs | 2 +-
- test/Feature/ConcurrentSpec.hs | 10 ++++-----
- test/Feature/CorsSpec.hs | 2 +-
- test/Feature/DeleteSpec.hs | 2 +-
- test/Feature/EmbedDisambiguationSpec.hs | 2 +-
- test/Feature/ExtraSearchPathSpec.hs | 2 +-
- test/Feature/HtmlRawOutputSpec.hs | 2 +-
- test/Feature/InsertSpec.hs | 2 +-
- test/Feature/JsonOperatorSpec.hs | 2 +-
- test/Feature/NoJwtSpec.hs | 2 +-
- test/Feature/NonexistentSchemaSpec.hs | 2 +-
- test/Feature/PgVersion95Spec.hs | 2 +-
- test/Feature/PgVersion96Spec.hs | 2 +-
- test/Feature/ProxySpec.hs | 2 +-
- test/Feature/QueryLimitedSpec.hs | 2 +-
- test/Feature/QuerySpec.hs | 2 +-
- test/Feature/RangeSpec.hs | 2 +-
- test/Feature/RawOutputTypesSpec.hs | 2 +-
- test/Feature/RootSpec.hs | 2 +-
- test/Feature/RpcSpec.hs | 2 +-
- test/Feature/SingularSpec.hs | 2 +-
- test/Feature/StructureSpec.hs | 2 +-
- test/Feature/UnicodeSpec.hs | 2 +-
- test/Feature/UpsertSpec.hs | 2 +-
- test/Main.hs | 30 +++++++++++++------------
- test/SpecHelper.hs | 2 +-
- 33 files changed, 69 insertions(+), 51 deletions(-)
-
-diff --git a/postgrest.cabal b/postgrest.cabal
-index 46ea4c59..0538a6bb 100644
---- a/postgrest.cabal
-+++ b/postgrest.cabal
-@@ -167,8 +167,8 @@ test-suite spec
- , hasql-transaction >= 0.7.2 && < 0.8
- , heredoc >= 0.2 && < 0.3
- , hspec >= 2.3 && < 2.8
-- , hspec-wai >= 0.7 && < 0.10
-- , hspec-wai-json >= 0.7 && < 0.10
-+ , hspec-wai >= 0.10 && < 0.11
-+ , hspec-wai-json >= 0.10 && < 0.11
- , http-types >= 0.12.3 && < 0.13
- , lens >= 4.14 && < 4.18
- , lens-aeson >= 1.0.1 && < 1.1
-diff --git a/stack.yaml.lock b/stack.yaml.lock
-index d08997c3..02719eb3 100644
---- a/stack.yaml.lock
-+++ b/stack.yaml.lock
-@@ -18,6 +18,20 @@ packages:
- sha256: 67cc9ba17c79e71d3abdb465a3ee2825477856fff3b8b7d543cbbbefdae9a9d9
- original:
- hackage: HsYAML-aeson-0.2.0.0 at sha256:04796abfc01cffded83f37a10e6edba4f0c0a15d45bef44fc5bb4313d9c87757,1791
-+- completed:
-+ hackage: hspec-wai-0.10.1 at sha256:56dd9ec1d56f47ef1946f71f7cbf070e4c285f718cac1b158400ae5e7172ef47,2290
-+ pantry-tree:
-+ size: 809
-+ sha256: 17af1c2e709cd84bfda066b9ebb04cdde7f92660c51a1f7401a1e9f766524e93
-+ original:
-+ hackage: hspec-wai-0.10.1 at sha256:56dd9ec1d56f47ef1946f71f7cbf070e4c285f718cac1b158400ae5e7172ef47,2290
-+- completed:
-+ hackage: hspec-wai-json-0.10.1 at sha256:67b405c38f0a9e2771480c8d3ecd8aeb8d8776a35d3b2906cb1b76c9538617e4,1629
-+ pantry-tree:
-+ size: 349
-+ sha256: fb9e89b79cde3276baa484c860c6b9eeebdbc1a5c43301293351a25bc4c08e87
-+ original:
-+ hackage: hspec-wai-json-0.10.1 at sha256:67b405c38f0a9e2771480c8d3ecd8aeb8d8776a35d3b2906cb1b76c9538617e4,1629
- snapshots:
- - completed:
- size: 523878
-diff --git a/test/Feature/AndOrParamsSpec.hs b/test/Feature/AndOrParamsSpec.hs
-index 9193b91b..f315f1a0 100644
---- a/test/Feature/AndOrParamsSpec.hs
-+++ b/test/Feature/AndOrParamsSpec.hs
-@@ -11,7 +11,7 @@ import PostgREST.Types (PgVersion, pgVersion112)
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: PgVersion -> SpecWith Application
-+spec :: PgVersion -> SpecWith ((), Application)
- spec actualPgVersion =
- describe "and/or params used for complex boolean logic" $ do
- context "used with GET" $ do
-diff --git a/test/Feature/AsymmetricJwtSpec.hs b/test/Feature/AsymmetricJwtSpec.hs
-index 780220a2..c2c46b23 100644
---- a/test/Feature/AsymmetricJwtSpec.hs
-+++ b/test/Feature/AsymmetricJwtSpec.hs
-@@ -11,7 +11,7 @@ import Protolude
- import SpecHelper
- -- }}}
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec = describe "server started with asymmetric JWK" $
-
- -- this test will stop working 9999999999s after the UNIX EPOCH
-diff --git a/test/Feature/AudienceJwtSecretSpec.hs b/test/Feature/AudienceJwtSecretSpec.hs
-index 6cd5912b..e5a91ff3 100644
---- a/test/Feature/AudienceJwtSecretSpec.hs
-+++ b/test/Feature/AudienceJwtSecretSpec.hs
-@@ -11,7 +11,7 @@ import Protolude hiding (get)
- import SpecHelper
- -- }}}
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec = describe "test handling of aud claims in JWT" $ do
-
- -- this test will stop working 9999999999s after the UNIX EPOCH
-diff --git a/test/Feature/AuthSpec.hs b/test/Feature/AuthSpec.hs
-index f8e964df..10901886 100644
---- a/test/Feature/AuthSpec.hs
-+++ b/test/Feature/AuthSpec.hs
-@@ -12,7 +12,7 @@ import PostgREST.Types (PgVersion, pgVersion112)
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: PgVersion -> SpecWith Application
-+spec :: PgVersion -> SpecWith ((), Application)
- spec actualPgVersion = describe "authorization" $ do
- let single = ("Accept","application/vnd.pgrst.object+json")
-
-diff --git a/test/Feature/BinaryJwtSecretSpec.hs b/test/Feature/BinaryJwtSecretSpec.hs
-index 6229aad9..599f7e2f 100644
---- a/test/Feature/BinaryJwtSecretSpec.hs
-+++ b/test/Feature/BinaryJwtSecretSpec.hs
-@@ -11,7 +11,7 @@ import Protolude
- import SpecHelper
- -- }}}
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec = describe "server started with binary JWT secret" $
-
- -- this test will stop working 9999999999s after the UNIX EPOCH
-diff --git a/test/Feature/ConcurrentSpec.hs b/test/Feature/ConcurrentSpec.hs
-index ffbb79ed..cab23aec 100644
---- a/test/Feature/ConcurrentSpec.hs
-+++ b/test/Feature/ConcurrentSpec.hs
-@@ -19,7 +19,7 @@ import Test.Hspec.Wai.JSON
-
- import Protolude hiding (get)
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "Queryiny in parallel" $
- it "should not raise 'transaction in progress' error" $
-@@ -35,13 +35,13 @@ spec =
- , matchHeaders = []
- }
-
--raceTest :: Int -> WaiExpectation -> WaiExpectation
-+raceTest :: Int -> WaiExpectation st -> WaiExpectation st
- raceTest times = liftBaseDiscard go
- where
- go test = void $ mapConcurrently (const test) [1..times]
-
--instance MonadBaseControl IO WaiSession where
-- type StM WaiSession a = StM Session a
-+instance MonadBaseControl IO (WaiSession st) where
-+ type StM (WaiSession st) a = StM Session a
- liftBaseWith f = WaiSession $
- liftBaseWith $ \runInBase ->
- f $ \k -> runInBase (unWaiSession k)
-@@ -49,5 +49,5 @@ instance MonadBaseControl IO WaiSession where
- {-# INLINE liftBaseWith #-}
- {-# INLINE restoreM #-}
-
--instance MonadBase IO WaiSession where
-+instance MonadBase IO (WaiSession st) where
- liftBase = liftIO
-diff --git a/test/Feature/CorsSpec.hs b/test/Feature/CorsSpec.hs
-index 6115c33e..cdadef63 100644
---- a/test/Feature/CorsSpec.hs
-+++ b/test/Feature/CorsSpec.hs
-@@ -14,7 +14,7 @@ import Protolude
- import SpecHelper
- -- }}}
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "CORS" $ do
- let preflightHeaders = [
-diff --git a/test/Feature/DeleteSpec.hs b/test/Feature/DeleteSpec.hs
-index de549f2d..0acc5244 100644
---- a/test/Feature/DeleteSpec.hs
-+++ b/test/Feature/DeleteSpec.hs
-@@ -10,7 +10,7 @@ import Text.Heredoc
-
- import Protolude hiding (get)
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "Deleting" $ do
- context "existing record" $ do
-diff --git a/test/Feature/ExtraSearchPathSpec.hs b/test/Feature/ExtraSearchPathSpec.hs
-index c1c2e112..6df40bf2 100644
---- a/test/Feature/ExtraSearchPathSpec.hs
-+++ b/test/Feature/ExtraSearchPathSpec.hs
-@@ -9,7 +9,7 @@ import Test.Hspec.Wai.JSON
- import Protolude
- import SpecHelper
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec = describe "extra search path" $ do
-
- it "finds the ltree <@ operator on the public schema" $
-diff --git a/test/Feature/HtmlRawOutputSpec.hs b/test/Feature/HtmlRawOutputSpec.hs
-index 490b7b38..ace649e1 100644
---- a/test/Feature/HtmlRawOutputSpec.hs
-+++ b/test/Feature/HtmlRawOutputSpec.hs
-@@ -10,7 +10,7 @@ import Text.Heredoc
- import Protolude hiding (get)
- import SpecHelper (acceptHdrs)
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec = describe "When raw-media-types is set to \"text/html\"" $
- it "can get raw output with Accept: text/html" $
- request methodGet "/rpc/welcome.html" (acceptHdrs "text/html") ""
-diff --git a/test/Feature/InsertSpec.hs b/test/Feature/InsertSpec.hs
-index ca99620d..ce0fe4aa 100644
---- a/test/Feature/InsertSpec.hs
-+++ b/test/Feature/InsertSpec.hs
-@@ -20,7 +20,7 @@ import PostgREST.Types (PgVersion, pgVersion112)
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: PgVersion -> SpecWith Application
-+spec :: PgVersion -> SpecWith ((), Application)
- spec actualPgVersion = do
- describe "Posting new record" $ do
- context "disparate json types" $ do
-diff --git a/test/Feature/JsonOperatorSpec.hs b/test/Feature/JsonOperatorSpec.hs
-index 1f3b4166..7367bcda 100644
---- a/test/Feature/JsonOperatorSpec.hs
-+++ b/test/Feature/JsonOperatorSpec.hs
-@@ -11,7 +11,7 @@ import PostgREST.Types (PgVersion, pgVersion112)
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: PgVersion -> SpecWith Application
-+spec :: PgVersion -> SpecWith ((), Application)
- spec actualPgVersion = describe "json and jsonb operators" $ do
- context "Shaping response with select parameter" $ do
- it "obtains a json subfield one level with casting" $
-diff --git a/test/Feature/NoJwtSpec.hs b/test/Feature/NoJwtSpec.hs
-index 453bd8fd..4e7b6524 100644
---- a/test/Feature/NoJwtSpec.hs
-+++ b/test/Feature/NoJwtSpec.hs
-@@ -13,7 +13,7 @@ import Protolude
- import SpecHelper
- -- }}}
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec = describe "server started without JWT secret" $ do
-
- -- this test will stop working 9999999999s after the UNIX EPOCH
-diff --git a/test/Feature/NonexistentSchemaSpec.hs b/test/Feature/NonexistentSchemaSpec.hs
-index ed1d5dce..7327c03c 100644
---- a/test/Feature/NonexistentSchemaSpec.hs
-+++ b/test/Feature/NonexistentSchemaSpec.hs
-@@ -7,7 +7,7 @@ import Test.Hspec.Wai
-
- import Protolude hiding (get)
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "Non existent api schema" $ do
- it "succeeds when requesting root path" $
-diff --git a/test/Feature/PgVersion95Spec.hs b/test/Feature/PgVersion95Spec.hs
-index dc5cedc6..31f88923 100644
---- a/test/Feature/PgVersion95Spec.hs
-+++ b/test/Feature/PgVersion95Spec.hs
-@@ -9,7 +9,7 @@ import Test.Hspec.Wai.JSON
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec = describe "features supported on PostgreSQL 9.5" $
- context "json array negative index" $ do
- it "can select with negative indexes" $ do
-diff --git a/test/Feature/PgVersion96Spec.hs b/test/Feature/PgVersion96Spec.hs
-index e6a0cf59..58426e3e 100644
---- a/test/Feature/PgVersion96Spec.hs
-+++ b/test/Feature/PgVersion96Spec.hs
-@@ -10,7 +10,7 @@ import Test.Hspec.Wai.JSON
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "features supported on PostgreSQL 9.6" $ do
- context "GUC headers on function calls" $ do
-diff --git a/test/Feature/ProxySpec.hs b/test/Feature/ProxySpec.hs
-index 2077c71a..7f3a0966 100644
---- a/test/Feature/ProxySpec.hs
-+++ b/test/Feature/ProxySpec.hs
-@@ -6,7 +6,7 @@ import Test.Hspec hiding (pendingWith)
- import Protolude
- import SpecHelper
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "GET / with proxy" $
- it "returns a valid openapi spec with proxy" $
-diff --git a/test/Feature/QueryLimitedSpec.hs b/test/Feature/QueryLimitedSpec.hs
-index e5d2c9f0..79a57e39 100644
---- a/test/Feature/QueryLimitedSpec.hs
-+++ b/test/Feature/QueryLimitedSpec.hs
-@@ -11,7 +11,7 @@ import Test.Hspec.Wai.JSON
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "Requesting many items with server limits(max-rows) enabled" $ do
- it "restricts results" $
-diff --git a/test/Feature/QuerySpec.hs b/test/Feature/QuerySpec.hs
-index a5c7ba23..fec9b74b 100644
---- a/test/Feature/QuerySpec.hs
-+++ b/test/Feature/QuerySpec.hs
-@@ -14,7 +14,7 @@ import PostgREST.Types (PgVersion, pgVersion112)
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: PgVersion -> SpecWith Application
-+spec :: PgVersion -> SpecWith ((), Application)
- spec actualPgVersion = do
-
- describe "Querying a table with a column called count" $
-diff --git a/test/Feature/RangeSpec.hs b/test/Feature/RangeSpec.hs
-index 74b30ffe..c7e2df1f 100644
---- a/test/Feature/RangeSpec.hs
-+++ b/test/Feature/RangeSpec.hs
-@@ -19,7 +19,7 @@ defaultRange = [json| { "min": 0, "max": 15 } |]
- emptyRange :: BL.ByteString
- emptyRange = [json| { "min": 2, "max": 2 } |]
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec = do
- describe "POST /rpc/getitemrange" $ do
- context "without range headers" $ do
-diff --git a/test/Feature/RawOutputTypesSpec.hs b/test/Feature/RawOutputTypesSpec.hs
-index dd99e0ad..6975ce63 100644
---- a/test/Feature/RawOutputTypesSpec.hs
-+++ b/test/Feature/RawOutputTypesSpec.hs
-@@ -10,7 +10,7 @@ import Test.Hspec.Wai.JSON
- import Protolude
- import SpecHelper (acceptHdrs)
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec = describe "When raw-media-types config variable is missing or left empty" $ do
- let firefoxAcceptHdrs = acceptHdrs "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
- chromeAcceptHdrs = acceptHdrs "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3"
-diff --git a/test/Feature/RootSpec.hs b/test/Feature/RootSpec.hs
-index 74fa89fb..92721663 100644
---- a/test/Feature/RootSpec.hs
-+++ b/test/Feature/RootSpec.hs
-@@ -11,7 +11,7 @@ import Protolude hiding (get)
-
- import SpecHelper
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "root spec function" $ do
- it "accepts application/openapi+json" $
-diff --git a/test/Feature/RpcSpec.hs b/test/Feature/RpcSpec.hs
-index 0fdb5aec..ede88072 100644
---- a/test/Feature/RpcSpec.hs
-+++ b/test/Feature/RpcSpec.hs
-@@ -17,7 +17,7 @@ import PostgREST.Types (PgVersion, pgVersion100, pgVersion109,
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: PgVersion -> SpecWith Application
-+spec :: PgVersion -> SpecWith ((), Application)
- spec actualPgVersion =
- describe "remote procedure call" $ do
- context "a proc that returns a set" $ do
-diff --git a/test/Feature/SingularSpec.hs b/test/Feature/SingularSpec.hs
-index 28d5de15..b1c0d03a 100644
---- a/test/Feature/SingularSpec.hs
-+++ b/test/Feature/SingularSpec.hs
-@@ -13,7 +13,7 @@ import Protolude hiding (get)
- import SpecHelper
-
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "Requesting singular json object" $ do
- let pgrstObj = "application/vnd.pgrst.object+json"
-diff --git a/test/Feature/StructureSpec.hs b/test/Feature/StructureSpec.hs
-index 3825aaba..02ce083b 100644
---- a/test/Feature/StructureSpec.hs
-+++ b/test/Feature/StructureSpec.hs
-@@ -17,7 +17,7 @@ import PostgREST.Config (docsVersion)
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec = do
-
- describe "OpenAPI" $ do
-diff --git a/test/Feature/UnicodeSpec.hs b/test/Feature/UnicodeSpec.hs
-index 7111b20a..a3e9ce68 100644
---- a/test/Feature/UnicodeSpec.hs
-+++ b/test/Feature/UnicodeSpec.hs
-@@ -10,7 +10,7 @@ import Test.Hspec.Wai.JSON
- import Protolude hiding (get)
- import SpecHelper
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "Reading and writing to unicode schema and table names" $
- it "Can read and write values" $ do
-diff --git a/test/Feature/UpsertSpec.hs b/test/Feature/UpsertSpec.hs
-index b5d2c5f6..9c81a311 100644
---- a/test/Feature/UpsertSpec.hs
-+++ b/test/Feature/UpsertSpec.hs
-@@ -11,7 +11,7 @@ import Text.Heredoc
- import Protolude hiding (get, put)
- import SpecHelper
-
--spec :: SpecWith Application
-+spec :: SpecWith ((), Application)
- spec =
- describe "UPSERT" $ do
- context "with POST" $ do
-diff --git a/test/Main.hs b/test/Main.hs
-index 7ecec37c..84cf717e 100644
---- a/test/Main.hs
-+++ b/test/Main.hs
-@@ -65,19 +65,21 @@ main = do
-
- refDbStructure <- newIORef $ Just dbStructure
-
-- let withApp = return $ postgrest (testCfg testDbConn) refDbStructure pool getTime $ pure ()
-- ltdApp = return $ postgrest (testLtdRowsCfg testDbConn) refDbStructure pool getTime $ pure ()
-- unicodeApp = return $ postgrest (testUnicodeCfg testDbConn) refDbStructure pool getTime $ pure ()
-- proxyApp = return $ postgrest (testProxyCfg testDbConn) refDbStructure pool getTime $ pure ()
-- noJwtApp = return $ postgrest (testCfgNoJWT testDbConn) refDbStructure pool getTime $ pure ()
-- binaryJwtApp = return $ postgrest (testCfgBinaryJWT testDbConn) refDbStructure pool getTime $ pure ()
-- audJwtApp = return $ postgrest (testCfgAudienceJWT testDbConn) refDbStructure pool getTime $ pure ()
-- asymJwkApp = return $ postgrest (testCfgAsymJWK testDbConn) refDbStructure pool getTime $ pure ()
-- asymJwkSetApp = return $ postgrest (testCfgAsymJWKSet testDbConn) refDbStructure pool getTime $ pure ()
-- nonexistentSchemaApp = return $ postgrest (testNonexistentSchemaCfg testDbConn) refDbStructure pool getTime $ pure ()
-- extraSearchPathApp = return $ postgrest (testCfgExtraSearchPath testDbConn) refDbStructure pool getTime $ pure ()
-- rootSpecApp = return $ postgrest (testCfgRootSpec testDbConn) refDbStructure pool getTime $ pure ()
-- htmlRawOutputApp = return $ postgrest (testCfgHtmlRawOutput testDbConn) refDbStructure pool getTime $ pure ()
-+ let app cfg = return ((), postgrest (cfg testDbConn) refDbStructure pool getTime $ pure ())
-+
-+ let withApp = app testCfg
-+ ltdApp = app testLtdRowsCfg
-+ unicodeApp = app testUnicodeCfg
-+ proxyApp = app testProxyCfg
-+ noJwtApp = app testCfgNoJWT
-+ binaryJwtApp = app testCfgBinaryJWT
-+ audJwtApp = app testCfgAudienceJWT
-+ asymJwkApp = app testCfgAsymJWK
-+ asymJwkSetApp = app testCfgAsymJWKSet
-+ nonexistentSchemaApp = app testNonexistentSchemaCfg
-+ extraSearchPathApp = app testCfgExtraSearchPath
-+ rootSpecApp = app testCfgRootSpec
-+ htmlRawOutputApp = app testCfgHtmlRawOutput
-
- let reset, analyze :: IO ()
- reset = resetDb testDbConn
-diff --git a/test/SpecHelper.hs b/test/SpecHelper.hs
-index b577e285..ab1d8519 100644
---- a/test/SpecHelper.hs
-+++ b/test/SpecHelper.hs
-@@ -32,7 +32,7 @@ matchContentTypeJson = "Content-Type" <:> "application/json; charset=utf-8"
- matchContentTypeSingular :: MatchHeader
- matchContentTypeSingular = "Content-Type" <:> "application/vnd.pgrst.object+json; charset=utf-8"
-
--validateOpenApiResponse :: [Header] -> WaiSession ()
-+validateOpenApiResponse :: [Header] -> WaiSession () ()
- validateOpenApiResponse headers = do
- r <- request methodGet "/" headers ""
- liftIO $
-
-From 6094074ca9571fbfdd4cb0c2f443f586d8bd3617 Mon Sep 17 00:00:00 2001
-From: Robert Vollmert <rob at vllmrt.net>
-Date: Sat, 7 Mar 2020 14:35:32 +0100
-Subject: [PATCH 3/3] Fix test typo.
-
----
- test/Feature/ConcurrentSpec.hs | 2 +-
- 1 file changed, 1 insertion(+), 1 deletion(-)
-
-diff --git a/test/Feature/ConcurrentSpec.hs b/test/Feature/ConcurrentSpec.hs
-index cab23aec..eab6d69d 100644
---- a/test/Feature/ConcurrentSpec.hs
-+++ b/test/Feature/ConcurrentSpec.hs
-@@ -21,7 +21,7 @@ import Protolude hiding (get)
-
- spec :: SpecWith ((), Application)
- spec =
-- describe "Queryiny in parallel" $
-+ describe "Querying in parallel" $
- it "should not raise 'transaction in progress' error" $
- raceTest 10 $
- get "/fakefake"
More information about the arch-commits
mailing list