wai-extra 3.0.30 → 3.0.31

raw patch · 3 files changed

+11/−4 lines, 3 files

Files

• ChangeLog.md +4/−0
• Network/Wai/Test.hs +6/−2
• wai-extra.cabal +1/−2

@@ -1,5 +1,9 @@ # Changelog for wai-extra +## 3.0.31++* Undo WaiTestFailure change in previous release+ ## 3.0.30  * `Network.Wai.Test`: Add support source locations to assertion primitives [#812](https://github.com/yesodweb/wai/pull/812)

@@ -29,6 +29,7 @@     , assertClientCookieExists     , assertNoClientCookieExists     , assertClientCookieValue+    , WaiTestFailure (..)     ) where  #if __GLASGOW_HASKELL__ < 710@@ -61,7 +62,6 @@ import qualified Data.Text.Encoding as TE import Data.IORef import Data.Time.Clock (getCurrentTime)-import qualified Test.HUnit as HUnit import Data.CallStack (HasCallStack)  -- |@@ -214,7 +214,11 @@ assertString s = unless (null s) $ assertFailure s  assertFailure :: HasCallStack => String -> Session ()-assertFailure = liftIO . HUnit.assertFailure+assertFailure msg = msg `deepseq` liftIO (throwIO (WaiTestFailure msg))++data WaiTestFailure = WaiTestFailure String+    deriving (Show, Eq, Typeable)+instance Exception WaiTestFailure  assertContentType :: HasCallStack => ByteString -> SResponse -> Session () assertContentType ct SResponse{simpleHeaders = h} =

@@ -1,5 +1,5 @@ Name:                wai-extra-Version:             3.0.30+Version:             3.0.31 Synopsis:            Provides some basic WAI handlers and middleware. description:   Provides basic WAI handler and middleware functionality:@@ -116,7 +116,6 @@                    , aeson                    , iproute                    , http2-                   , HUnit                    , call-stack    if os(windows)