Treat Timeout as an async exception too

snoyberg · Feb 13, 2018 · fc49e14 · fc49e14
1 parent 61cd146
commit fc49e14
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/hackage-security/src/Hackage/Security/Util/Checked.hs b/hackage-security/src/Hackage/Security/Util/Checked.hs
@@ -71,6 +71,7 @@ isAsync e =
           | Just (_ :: Base.Deadlock) <- Base.fromException se -> True
           | Just (_ :: Base.BlockedIndefinitelyOnSTM) <- Base.fromException se -> True
           | Just (_ :: Base.BlockedIndefinitelyOnMVar) <- Base.fromException se -> True
+          | show e == "<<timeout>>" -> True
           | otherwise -> False
 #endif