shithub: MicroHs

ref: b82c264918bc202f5d0756cd860598cac3f3a6a2
dir: /lib/Data/Ratio_Type.hs/

View raw version 
module Data.Ratio_Type(module Data.Ratio_Type) where
import Primitives
import Data.Integer_Type

data Ratio a = (:%) a a   -- XXX should be strict

type Rational = Ratio Integer