From: sof <unknown>
Date: Tue, 24 Sep 2002 19:01:55 +0000 (+0000)
Subject: [project @ 2002-09-24 19:01:55 by sof]
X-Git-Tag: nhc98-1-18-release~844
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=06922eb27ec5f90178c287491283a21a97b9d8f3;p=haskell-directory.git

[project @ 2002-09-24 19:01:55 by sof]
userErrors: don't barf on non-IOExceptions.

Merge to STABLE.
---

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
 
 -----------------------------------------------------------------------------