From c838658103c644ef6c32e92025b1d4999aa0f9bd Mon Sep 17 00:00:00 2001 From: David Terei Date: Mon, 6 Jun 2011 13:45:46 -0700 Subject: SafeHaskell: Fix validation errors when unsafe base used --- compiler/utils/FastMutInt.lhs | 4 +++- compiler/utils/StringBuffer.lhs | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'compiler/utils') 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 -- cgit v1.2.1