From: simonmar <unknown>
Date: Wed, 8 Jan 2003 14:08:29 +0000 (+0000)
Subject: [project @ 2003-01-08 14:08:29 by simonmar]
X-Git-Tag: nhc98-1-18-release~763
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=35c32c81b4341ebd59a6d4c8a90ab98a7d1b898d;p=haskell-directory.git

[project @ 2003-01-08 14:08:29 by simonmar]
Fix annotateIOError (bug noticed by Ross Paterson).
---

diff --git a/System/IO/Error.hs b/System/IO/Error.hs
index c42704b..a5296cc 100644
--- a/System/IO/Error.hs
+++ b/System/IO/Error.hs
@@ -243,7 +243,7 @@ annotateIOError :: IOError
               -> Maybe Handle 
               -> Maybe FilePath 
               -> IOError 
-annotateIOError (IOError hdl errTy _ str path) loc ohdl opath = 
+annotateIOError (IOError ohdl errTy _ str opath) loc hdl path = 
   IOError (hdl `mplus` ohdl) errTy loc str (path `mplus` opath)
   where
     Nothing `mplus` ys = ys