From e4cd44a4c783b1197f4c637b5a15bb2798c3ff82 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Mon, 14 Dec 2020 11:29:11 +0200 Subject: [PATCH] Fix test suite for latest wai-extra (fixes #1711) --- yesod-core/ChangeLog.md | 4 ++++ yesod-core/test/YesodCoreTest/Widget.hs | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/yesod-core/ChangeLog.md b/yesod-core/ChangeLog.md index 453ea477..80eac463 100644 --- a/yesod-core/ChangeLog.md +++ b/yesod-core/ChangeLog.md @@ -1,5 +1,9 @@ # ChangeLog for yesod-core +## 1.6.18.8 + +* Fix test suite for wai-extra change around vary header + ## 1.6.18.7 * Fix functions generating Open Graph metadata[#1709](https://github.com/yesodweb/yesod/pull/1709) diff --git a/yesod-core/test/YesodCoreTest/Widget.hs b/yesod-core/test/YesodCoreTest/Widget.hs index 5d04fcb1..7d71a18a 100644 --- a/yesod-core/test/YesodCoreTest/Widget.hs +++ b/yesod-core/test/YesodCoreTest/Widget.hs @@ -98,7 +98,7 @@ widgetTest = describe "Test.Widget" $ do assertBody "\n\n

toWidget

\n

toBody

\n" res runner :: Session () -> IO () -runner f = toWaiApp Y >>= runSession f +runner f = toWaiAppPlain Y >>= runSession f case_addJuliusBody :: IO () case_addJuliusBody = runner $ do