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));
}
|