interface Prelude where { {-# NEED #-} instance Functor NHC.Internal.IO; {-# NEED #-} instance Monad NHC.Internal.IO; {-# NEED #-} instance (Integral a) => Fractional (Ratio.Ratio a); {-# NEED #-} instance (Integral a) => RealFrac (Ratio.Ratio a); {-# NEED #-} instance (Integral a) => Num (Ratio.Ratio a); {-# NEED #-} instance (Integral a) => Real (Ratio.Ratio a); {-# NEED #-} instance (Integral a) => Enum (Ratio.Ratio a); {-# NEED #-} instance Enum NHC.DErrNo.ErrNo; {-# NEED #-} instance (Read a,Integral a) => Read (Ratio.Ratio a); {-# NEED #-} instance (Integral a) => Ord (Ratio.Ratio a); {-# NEED #-} instance (Integral a) => Eq (Ratio.Ratio a); {-# NEED #-} instance Eq NHC.DErrNo.ErrNo; {-# NEED #-} instance Eq IO.Handle; {-# NEED #-} instance (Show a) => Show (NHC.Internal.IO a); {-# NEED #-} instance (Integral a) => Show (Ratio.Ratio a); {-# NEED #-} instance Show NHC.DErrNo.ErrNo; {-# NEED #-} instance Show IO.Handle; interface NHC.Internal {-# NEED IO #-} newtype {-# #-} IO a; {-# NEED World #-} data World; interface Ratio {-# NEED Ratio #-} data Ratio a; interface ! Prelude {-# NEED {IOError IOError EOFError PatternError UserError} #-} data IOError = IOError String (Maybe String) (Maybe IO.Handle) NHC.DErrNo.ErrNo | EOFError String IO.Handle | PatternError String | UserError String String; interface NHC.DErrNo {-# NEED ErrNo #-} data ErrNo; interface IO {-# NEED Handle #-} newtype {-# #-} Handle; }