System/IO/Unsafe.hs

   1 {-# OPTIONS -fno-implicit-prelude #-}
   2 -----------------------------------------------------------------------------
   3 -- |
   4 -- Module      :  System.IO.Unsafe
   5 -- Copyright   :  (c) The University of Glasgow 2001
   6 -- License     :  BSD-style (see the file libraries/base/LICENSE)
   7 --
   8 -- Maintainer  :  libraries@haskell.org
   9 -- Stability   :  provisional
  10 -- Portability :  portable
  11 --
  12 -- \"Unsafe\" IO operations.
  13 --
  14 -----------------------------------------------------------------------------
  15
  16 module System.IO.Unsafe (
  17    -- * Unsafe 'IO' operations
  18    unsafePerformIO,     -- :: IO a -> a
  19    unsafeInterleaveIO,  -- :: IO a -> IO a
  20   ) where
  21
  22 #ifdef __GLASGOW_HASKELL__
  23 import GHC.IOBase
  24 #endif
  25
  26 #ifdef __HUGS__
  27 import Hugs.IOExts
  28 #endif
  29
  30 #ifdef __NHC__
  31 import NHC.Internal (unsafePerformIO)
  32
  33 unsafeInterleaveIO :: IO a -> IO a
  34 unsafeInterleaveIO f = let x = unsafePerformIO f in return x
  35 #endif