From 06922eb27ec5f90178c287491283a21a97b9d8f3 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 24 Sep 2002 19:01:55 +0000
Subject: [PATCH] [project @ 2002-09-24 19:01:55 by sof] userErrors: don't
 barf on non-IOExceptions.

Merge to STABLE.
---
 Control/Exception.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Control/Exception.hs b/Control/Exception.hs
index 85163b3..f23ab9f 100644
--- a/Control/Exception.hs
+++ b/Control/Exception.hs
@@ -326,7 +326,7 @@ dynExceptions _ = Nothing
 asyncExceptions (AsyncException e) = Just e
 asyncExceptions _ = Nothing
 
-userErrors e | isUserError e = Just (ioeGetErrorString e)
+userErrors e@IOException{} | isUserError e = Just (ioeGetErrorString e)
 userErrors _ = Nothing
 
 -----------------------------------------------------------------------------
-- 
1.7.10.4