sandwich 0.3.0.1 → 0.3.0.2
raw patch · 3 files changed
+7/−2 lines, 3 files
Files
- CHANGELOG.md +5/−0
- sandwich.cabal +1/−1
- src/Test/Sandwich/Waits.hs +1/−1
CHANGELOG.md view
@@ -1,8 +1,13 @@ # Changelog for sandwich +## Unreleased++* Re-fix compatibility for base < 4.14.0.0+ ## 0.3.0.1 * Fix openFileExplorerFolderPortable on macOS+* Fix compatibility for base < 4.14.0.0 ## 0.3.0.0
sandwich.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: sandwich-version: 0.3.0.1+version: 0.3.0.2 synopsis: Yet another test framework for Haskell description: Please see the <https://codedownio.github.io/sandwich documentation>. category: Testing
src/Test/Sandwich/Waits.hs view
@@ -68,7 +68,7 @@ rethrowTimeoutExceptionWithCallStack :: (HasCallStack) => m a -> m a rethrowTimeoutExceptionWithCallStack = handleSyncOrAsync $ \(e@(SomeException inner)) -> if-#if !MIN_VERSION_base(4,13,0)+#if MIN_VERSION_base(4,14,0) | Just (_ :: Timeout) <- fromExceptionUnwrap e -> do throwIO $ Reason (Just (popCallStack callStack)) "Timeout in waitUntil" | Just (SyncExceptionWrapper (cast -> Just (SomeException (cast -> Just (SomeAsyncException (cast -> Just (_ :: Timeout))))))) <- cast inner -> do