-import Data.Dynamic
-import Control.Monad.Fix
-import System.IO.Error
-
--- -----------------------------------------------------------------------------
--- MonadFix instance
-
-instance MonadFix IO where
- mfix = fixIO
-
--- -----------------------------------------------------------------------------
--- Typeable instance for Handle