[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 (file)
--- 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