ghc/lib/prelude/TyRatio.hs

   1 module PreludeRatio where
   2
   3 -- *** context missing ***
   4 --  (NB: compiler's builtin idea of "data Ratio ..." must also
   5 --      omit the context!)
   6 data Ratio a = a :% a
   7           deriving () -- NB ***
   8
   9 -- ToDo: Ratio Int# ???
  10 -- {-# SPECIALIZE data a{Int#} :: Ratio a #-}