diff options
| author | David Terei <davidterei@gmail.com> | 2011-06-01 18:04:27 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-06-17 20:40:33 -0700 |
| commit | 097a33f7eae35f8e9a70c4a6a6431ce17f3cc861 (patch) | |
| tree | c87a1c1d565fc65eaab9a350402d03e557de12d0 /compiler/utils/StringBuffer.lhs | |
| parent | ce673b2bb62a74d055adc0ae05747b7b163eecd2 (diff) | |
| download | haskell-097a33f7eae35f8e9a70c4a6a6431ce17f3cc861.tar.gz | |
SafeHaskell: Fix validation errors when Safe base used.
Diffstat (limited to 'compiler/utils/StringBuffer.lhs')
| -rw-r--r-- | compiler/utils/StringBuffer.lhs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs index 1ad4879ef8..326cb1c3f9 100644 --- a/compiler/utils/StringBuffer.lhs +++ b/compiler/utils/StringBuffer.lhs @@ -48,14 +48,17 @@ import FastString hiding ( buf ) import FastTypes import FastFunctions -import Foreign import System.IO ( hGetBuf, hFileSize,IOMode(ReadMode), hClose - , Handle, hTell ) + , Handle, hTell, openBinaryFile ) import System.IO.Unsafe ( unsafePerformIO ) import GHC.Exts -import System.IO ( openBinaryFile ) +#if __GLASGOW_HASKELL__ >= 701 +import Foreign +#else +import Foreign hiding ( unsafePerformIO ) +#endif -- ----------------------------------------------------------------------------- -- The StringBuffer type |