avoid Foreign.unsafePerformIO

[ghc-base.git] / GHC / Conc / Sync.lhs

diff --git a/GHC/Conc/Sync.lhs b/GHC/Conc/Sync.lhs
index 24178a0..cc16853 100644 (file)
--- a/GHC/Conc/Sync.lhs
+++ b/GHC/Conc/Sync.lhs
@@ -75,7 +75,7 @@ module GHC.Conc.Sync
         , sharedCAF
         ) where
 
-import Foreign
+import Foreign hiding (unsafePerformIO)
 import Foreign.C
 
 #ifdef mingw32_HOST_OS