shithub: MicroHs

Download patch

ref: 7f7c5ed91ee14971a0aaa012d4cb434a5530da95
parent: 2c97bc13a89d9245882e5df62ee872003e8e86c3
author: Lennart Augustsson <lennart@augustsson.net>
date: Thu Nov 2 15:56:29 EDT 2023 

More copyright


--- a/lib/Data/Double.hs
+++ b/lib/Data/Double.hs
@@ -22,58 +22,14 @@
       GT ->  1.0
   fromInt x = error "Double.fromInt unimplemented"
 
-{-
--- Arithmetic
-(+) :: Double -> Double -> Double
-(+)  = primDoubleAdd
-(-) :: Double -> Double -> Double
-(-)  = primDoubleSub
-(*) :: Double -> Double -> Double
-(*)  = primDoubleMul
--}
-
 instance Fractional Double where
   (/) = primDoubleDiv
   fromDouble x = x
 
-{-
-negate :: Double -> Double
-negate x = 0.0 - x
-
-addDouble :: Double -> Double -> Double
-addDouble = (+)
-subDouble :: Double -> Double -> Double
-subDouble = (-)
-mulDouble :: Double -> Double -> Double
-mulDouble = (*)
-divDouble :: Double -> Double -> Double
-divDouble = (/)
--}
-
---------------------------------
-
---infix 4 ==,/=
---infix 4 <,<=,>,>=
-
-{-
--- Comparison
-(==) :: Double -> Double -> Bool
-(==) = primDoubleEQ
-(/=) :: Double -> Double -> Bool
-(/=) = primDoubleNE
--}
-
 instance Eq Double where
   (==) = primDoubleEQ
   (/=) = primDoubleNE
 
-{-
-eqDouble :: Double -> Double -> Bool
-eqDouble = (==)
-neqDouble :: Double -> Double -> Bool
-neqDouble = (/=)
--}
-
 instance Ord Double where
   (<)  = primDoubleLT
   (<=) = primDoubleLE
@@ -80,33 +36,8 @@
   (>)  = primDoubleGT
   (>=) = primDoubleGE
   
-{-
-(<)  :: Double -> Double -> Bool
-(<)  = primDoubleLT
-(<=) :: Double -> Double -> Bool
-(<=) = primDoubleLE
-(>)  :: Double -> Double -> Bool
-(>)  = primDoubleGT
-(>=) :: Double -> Double -> Bool
-(>=) = primDoubleGE
-
-ltDouble :: Double -> Double -> Bool
-ltDouble = (<)
-
-leDouble :: Double -> Double -> Bool
-leDouble = (<=)
-
-gtDouble :: Double -> Double -> Bool
-gtDouble = (>)
-
-geDouble :: Double -> Double -> Bool
-geDouble = (>=)
--}
-
 -- | this primitive will print doubles with up to 6 decimal points
 -- it turns out that doubles are extremely tricky, and just printing them is a
 -- herculean task of its own...
 instance Show Double where
   show = primDoubleShow
-
---------------------------------
--- a/lib/Data/Fractional.hs
+++ b/lib/Data/Fractional.hs
@@ -1,3 +1,5 @@
+-- Copyright 2023 Lennart Augustsson
+-- See LICENSE file for full license.
 module Data.Fractional(module Data.Fractional) where
 import Primitives
 import Data.Num
--- a/lib/Data/Integral.hs
+++ b/lib/Data/Integral.hs
@@ -1,3 +1,5 @@
+-- Copyright 2023 Lennart Augustsson
+-- See LICENSE file for full license.
 module Data.Integral(module Data.Integral) where
 import Primitives
 import Data.Eq
--- a/lib/Data/Num.hs
+++ b/lib/Data/Num.hs
@@ -1,3 +1,5 @@
+-- Copyright 2023 Lennart Augustsson
+-- See LICENSE file for full license.
 module Data.Num(module Data.Num) where
 import Primitives
 
@@ -18,5 +20,3 @@
 
 subtract :: forall a . Num a => a -> a -> a
 subtract x y = y - x
-
-
-- 
⑨