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 <[email protected]> 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) _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
