System/IO/Unsafe.hs

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