shithub: MicroHs

ref: 3b3c5368c74d4d22a1073ad8cf44e574f8166a6a
dir: /lib/Data/Fractional.hs/

View raw version 
-- Copyright 2023 Lennart Augustsson
-- See LICENSE file for full license.
module Data.Fractional(module Data.Fractional) where
import Primitives
import Data.Num

class Num a => Fractional a where
  (/) :: a -> a -> a
  recip :: a -> a
--  fromRational :: Rational -> a
  fromDouble :: Double -> a

  recip x = fromDouble 1.0 / x