{-# OPTIONS -fno-implicit-prelude #-}
-----------------------------------------------------------------------------
---
+-- |
-- Module : System.IO
-- Copyright : (c) The University of Glasgow 2001
-- License : BSD-style (see the file libraries/core/LICENSE)
-- Stability : provisional
-- Portability : portable
--
--- $Id: IO.hs,v 1.5 2002/02/27 14:32:23 simonmar Exp $
---
-- The standard IO library.
--
-----------------------------------------------------------------------------
import GHC.Show
#endif
-import Data.Dynamic
-import Control.Monad.Fix
import System.IO.Error
-- -----------------------------------------------------------------------------
--- MonadFix instance
-
-instance MonadFix IO where
- mfix = fixIO
-
--- -----------------------------------------------------------------------------
--- Typeable instance for Handle
-
-#include "Dynamic.h"
-INSTANCE_TYPEABLE0(Handle,handleTc,"Handle")
-
--- -----------------------------------------------------------------------------
-- Standard IO
putChar :: Char -> IO ()