From: Ian Lynagh <igloo@earth.li>
Date: Mon, 5 Jan 2009 01:46:25 +0000 (+0000)
Subject: Fix the build on Windows
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=db36af19ed11f2bb273b13fd7e46ceb1caedd8a9;p=ghc-base.git

Fix the build on Windows
---

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index ebd9ec9..64e4f20 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -35,6 +35,7 @@ import Foreign.C
 
 import Data.Bits
 import Data.Maybe
+import System.IO.Error
 
 #if __GLASGOW_HASKELL__
 import GHC.Base
@@ -270,7 +271,7 @@ setCooked fd cooked = do
 
 ioe_unk_error :: String -> String -> IOException
 ioe_unk_error loc msg 
- = IOError Nothing OtherError loc msg Nothing
+ = ioeSetErrorString (mkIOError OtherError loc Nothing Nothing) msg
 
 -- Note: echoing goes hand in hand with enabling 'line input' / raw-ness
 -- for Win32 consoles, hence setEcho ends up being the inverse of setCooked.