Windows: Unicode openFile and stat functions

[ghc-base.git] / System / Environment.hs

diff --git a/System/Environment.hs b/System/Environment.hs
index 12ed580..4f0ab96 100644 (file)
--- a/System/Environment.hs
+++ b/System/Environment.hs
@@ -32,9 +32,10 @@ import Prelude
 import Data.List
 import Foreign
 import Foreign.C
-import Control.Exception        ( bracket )
+import Control.Exception.Base   ( bracket )
 import Control.Monad
-import GHC.IOBase
+import GHC.IO
+import GHC.IO.Exception
 #endif
 
 #ifdef __HUGS__
@@ -123,7 +124,7 @@ getEnv name =
       if litstring /= nullPtr
         then peekCString litstring
         else ioException (IOError Nothing NoSuchThing "getEnv"
-                          "no environment variable" (Just name))
+                          "no environment variable" Nothing (Just name))
 
 foreign import ccall unsafe "getenv"
    c_getenv :: CString -> IO (Ptr CChar)