Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: c0707119a7
Fetching contributors…

Cannot retrieve contributors at this time

30 lines (22 sloc) 0.717 kb
{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses, UndecidableInstances #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Generic.Data.Num where
import Prelude ()
import qualified Prelude
infixl 6 +
infixl 7 *
infixl 6 -
class Num j a where
(+) :: j a -> j a -> j a
(-) :: j a -> j a -> j a
(*) :: j a -> j a -> j a
fromInteger :: Prelude.Integer -> j a
-- Terrible hack to get number literals working.
instance Prelude.Show (j a) where show _ = "num"
instance Prelude.Eq (j a) where
instance Num j a => Prelude.Num (j a) where
(+) = Prelude.undefined
(*) = Prelude.undefined
abs = Prelude.undefined
signum = Prelude.undefined
fromInteger = fromInteger
Jump to Line
Something went wrong with that request. Please try again.