nick8325/quickspec
1
1
Fork 0
mirror of https://github.com/nick8325/quickspec.git synced 2024-09-11 08:35:32 +03:00
Code Issues Projects Releases Wiki Activity

Whoops, accidentally tested the old code

Browse Source
This commit is contained in:
Nick Smallbone 2023-12-14 10:48:07 +01:00
parent 099762c4db
commit bf24d7374d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/QuickSpec/Internal/Utils.hs
View File

@ -20,7 +20,7 @@ import Data.Lens.Light
import Twee.Base hiding (lookup)
import Control.Monad.Trans.State.Strict
import Control.Monad
import Data.Maybe
import Data.Typeable
(#) :: Category.Category cat => cat b c -> cat a b -> cat a c
(#) = (Category..)
@ -142,7 +142,10 @@ isResourceLimitException :: SomeException -> Bool
isResourceLimitException ex =
fromException ex == Just StackOverflow ||
fromException ex == Just HeapOverflow ||
isTimeout ex
isTimeout ex ||
case fromException ex of
Just (SomeAsyncException ex) -> isResourceLimitException (SomeException ex)
Nothing -> False
where
-- The Timeout type wasn't exported until GHC 8.10,
-- otherwise we could just do: