Use unsafePerformIO from System.IO.Unsafe

Foreign.unsafePerformIO is deprecated as of GHC 7.5
depressed-pho · Feb 19, 2012 · a18f44c · a18f44c
1 parent f318105
commit a18f44c
Show file tree

Hide file tree

Showing 5 changed files with 10 additions and 5 deletions.
diff --git a/OpenSSL/DSA.hsc b/OpenSSL/DSA.hsc
@@ -34,7 +34,8 @@ module OpenSSL.DSA
 import           Control.Monad
 import qualified Data.ByteString as BS
 import           Data.Typeable
-import           Foreign
+import           Foreign hiding (unsafePerformIO)
+import           System.IO.Unsafe (unsafePerformIO)
 import           Foreign.C (CString)
 import           Foreign.C.Types
 import           OpenSSL.BN

diff --git a/OpenSSL/EVP/Base64.hsc b/OpenSSL/EVP/Base64.hsc
@@ -22,8 +22,9 @@ import qualified Data.ByteString.Lazy.Internal as L8Internal
 import qualified Data.ByteString.Char8 as B8
 import qualified Data.ByteString.Lazy.Char8 as L8
 import           Data.List
-import           Foreign
+import           Foreign hiding (unsafePerformIO)
 import           Foreign.C
+import           System.IO.Unsafe (unsafePerformIO)
 
 
 -- On encoding, we keep fetching the next block until we get at least

diff --git a/OpenSSL/EVP/Digest.hsc b/OpenSSL/EVP/Digest.hsc
@@ -24,7 +24,8 @@ import           Data.ByteString.Unsafe (unsafeUseAsCStringLen)
 import qualified Data.ByteString.Char8 as B8
 import qualified Data.ByteString.Lazy.Char8 as L8
 import           Control.Applicative ((<$>))
-import           Foreign
+import           Foreign hiding (unsafePerformIO)
+import           System.IO.Unsafe (unsafePerformIO)
 import           Foreign.C
 import           OpenSSL.EVP.Internal
 import           OpenSSL.Objects

diff --git a/OpenSSL/EVP/Open.hsc b/OpenSSL/EVP/Open.hsc
@@ -12,7 +12,8 @@ module OpenSSL.EVP.Open
 
 import qualified Data.ByteString.Char8 as B8
 import qualified Data.ByteString.Lazy.Char8 as L8
-import           Foreign
+import           Foreign hiding (unsafePerformIO)
+import           System.IO.Unsafe (unsafePerformIO)
 import           Foreign.C
 import           OpenSSL.EVP.Cipher hiding (cipher)
 import           OpenSSL.EVP.PKey

diff --git a/OpenSSL/RSA.hsc b/OpenSSL/RSA.hsc
@@ -32,7 +32,8 @@ module OpenSSL.RSA
 
 import           Control.Monad
 import           Data.Typeable
-import           Foreign
+import           Foreign hiding (unsafePerformIO)
+import           System.IO.Unsafe (unsafePerformIO)
 import           Foreign.C
 import           OpenSSL.BN
 import           OpenSSL.Utils