From 35c32c81b4341ebd59a6d4c8a90ab98a7d1b898d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 8 Jan 2003 14:08:29 +0000
Subject: [PATCH] [project @ 2003-01-08 14:08:29 by simonmar] Fix
 annotateIOError (bug noticed by Ross Paterson).

---
 System/IO/Error.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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