interface Data.Fixed where { {-# NEED #-} instance Prelude.Monad NHC.Internal.IO; {-# NEED #-} instance HasResolution E12; {-# NEED #-} instance HasResolution E6; {-# NEED #-} instance (HasResolution a) => Prelude.Fractional (Fixed a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Fractional (Ratio.Ratio a); {-# NEED #-} instance (HasResolution a) => Prelude.RealFrac (Fixed a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.RealFrac (Ratio.Ratio a); {-# NEED #-} instance (HasResolution a) => Prelude.Real (Fixed a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Real (Ratio.Ratio a); {-# NEED #-} instance Prelude.Enum (Fixed a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Enum (Ratio.Ratio a); {-# NEED #-} instance (Prelude.Read a,Prelude.Integral a) => Prelude.Read (Ratio.Ratio a); {-# NEED #-} instance Prelude.Ord (Fixed a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Ord (Ratio.Ratio a); {-# NEED #-} instance Prelude.Eq (Fixed a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Eq (Ratio.Ratio a); {-# NEED #-} instance (HasResolution a) => Prelude.Show (Fixed a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Show (Ratio.Ratio a); {-# NEED #-} instance (Prelude.Show a) => Prelude.Show (NHC.Internal.IO a); {-# NEED #-} instance Prelude.Functor NHC.Internal.IO; {-# NEED #-} instance (HasResolution a) => Prelude.Num (Fixed a); {-# NEED #-} instance (Prelude.Integral a) => Prelude.Num (Ratio.Ratio a); interface NHC.Internal {-# NEED IO #-} newtype {-# #-} IO a; {-# NEED World #-} data World; interface Ratio {-# NEED Ratio #-} data Ratio a; interface ! Data.Fixed {-# NEED Pico #-} type {-# 2 #-} Pico = (Fixed E12); {-# NEED E12 #-} data E12; {-# NEED Micro #-} type {-# 1 #-} Micro = (Fixed E6); {-# NEED E6 #-} data E6; {-# NEED showFixed #-} showFixed{-# 2 #-}::(HasResolution a) => (Prelude.Bool -> ((Fixed a) -> Prelude.String)); {-# NEED {HasResolution resolution} #-} class HasResolution a where { resolution{-# 1 #-}::(a -> Prelude.Integer); }; {-# NEED {Fixed} #-} newtype {-# #-} Fixed a = MkFixed Prelude.Integer; {-# NEED mod' #-} mod'{-# 2 #-}::(Prelude.Real a) => (a -> (a -> a)); {-# NEED divMod' #-} divMod'{-# 2 #-}::(Prelude.Real a,Prelude.Integral b) => (a -> (a -> (b,a))); {-# NEED div' #-} div'{-# 2 #-}::(Prelude.Real a,Prelude.Integral b) => (a -> (a -> b)); }