diff options
| author | David Terei <davidterei@gmail.com> | 2011-06-06 13:45:46 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-06-17 20:40:34 -0700 |
| commit | c838658103c644ef6c32e92025b1d4999aa0f9bd (patch) | |
| tree | d38d76f235e20fb76f8321bd060fe57b45216c43 /compiler/utils | |
| parent | 4f9675b2e0533000aeda861f3b4c04dd9ad79970 (diff) | |
| download | haskell-c838658103c644ef6c32e92025b1d4999aa0f9bd.tar.gz | |
SafeHaskell: Fix validation errors when unsafe base used
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/FastMutInt.lhs | 4 | ||||
| -rw-r--r-- | compiler/utils/StringBuffer.lhs | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/compiler/utils/FastMutInt.lhs b/compiler/utils/FastMutInt.lhs index b27f9cf2c9..3a18a13501 100644 --- a/compiler/utils/FastMutInt.lhs +++ b/compiler/utils/FastMutInt.lhs @@ -26,9 +26,11 @@ module FastMutInt( #endif import GHC.Base -import GHC.Ptr #if __GLASGOW_HASKELL__ >= 701 +import GHC.Ptr.Safe import GHC.Ptr.Unsafe +#else +import GHC.Ptr #endif #else /* ! __GLASGOW_HASKELL__ */ diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs index 326cb1c3f9..3eb2f1f5bd 100644 --- a/compiler/utils/StringBuffer.lhs +++ b/compiler/utils/StringBuffer.lhs @@ -55,7 +55,7 @@ import System.IO.Unsafe ( unsafePerformIO ) import GHC.Exts #if __GLASGOW_HASKELL__ >= 701 -import Foreign +import Foreign.Safe #else import Foreign hiding ( unsafePerformIO ) #endif |