From db36af19ed11f2bb273b13fd7e46ceb1caedd8a9 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Mon, 5 Jan 2009 01:46:25 +0000 Subject: [PATCH] Fix the build on Windows --- System/Posix/Internals.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 1.7.10.4