[commit: Win32] master: Fix build (47e101a)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Win32

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/47e101a9c8acec12a4e07fa4fa1dc6337dfcc19c

>---------------------------------------------------------------

commit 47e101a9c8acec12a4e07fa4fa1dc6337dfcc19c
Author: Ian Lynagh <igloo at earth.li>
Date:   Mon Jun 20 20:20:28 2011 +0100

    Fix build

>---------------------------------------------------------------

 Graphics/Win32/Control.hsc |    3 ++-
 Graphics/Win32/Window.hsc  |    3 ++-
 System/Win32/Registry.hsc  |    3 ++-
 System/Win32/Types.hs      |    3 ++-
 4 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/Graphics/Win32/Control.hsc b/Graphics/Win32/Control.hsc
index e7ce902..6b283e2 100644
--- a/Graphics/Win32/Control.hsc
+++ b/Graphics/Win32/Control.hsc
@@ -19,7 +19,8 @@ import Graphics.Win32.Window
 import System.Win32.Types
 import Graphics.Win32.Message
 
-import Foreign
+import Foreign hiding (unsafePerformIO)
+import System.IO.Unsafe
 
 #include <windows.h>
 #include <commctrl.h>
diff --git a/Graphics/Win32/Window.hsc b/Graphics/Win32/Window.hsc
index 3e46452..dc30df7 100644
--- a/Graphics/Win32/Window.hsc
+++ b/Graphics/Win32/Window.hsc
@@ -20,7 +20,8 @@ import Graphics.Win32.Message
 
 import Control.Monad
 import Data.Maybe
-import Foreign
+import Foreign hiding (unsafePerformIO)
+import System.IO.Unsafe
 
 #include <windows.h>
 
diff --git a/System/Win32/Registry.hsc b/System/Win32/Registry.hsc
index 685a255..6ade868 100644
--- a/System/Win32/Registry.hsc
+++ b/System/Win32/Registry.hsc
@@ -61,7 +61,8 @@ import System.Win32.Time
 import System.Win32.Types
 import System.Win32.File
 
-import Foreign
+import System.IO.Unsafe
+import Foreign hiding (unsafePerformIO)
 
 #include <windows.h>
 
diff --git a/System/Win32/Types.hs b/System/Win32/Types.hs
index bf8dae0..3b5bbba 100644
--- a/System/Win32/Types.hs
+++ b/System/Win32/Types.hs
@@ -18,10 +18,11 @@ module System.Win32.Types
 	) where
 
 import Data.Maybe
-import Foreign
+import Foreign hiding (unsafePerformIO)
 import Foreign.C
 import Control.Exception
 import System.IO.Error
+import System.IO.Unsafe
 import Data.Char
 import Numeric (showHex)