Remove Ord instance from Array. (#23)

Author: dmjio

src/ArrayFire.hs

@@ -201,7 +201,7 @@ import Data.Word
 -- Specifying up to 4 dimensions is allowed (anything high is ignored).
 
 -- $laws
--- Every 'Array' is an instance of 'Eq', 'Ord', 'Num', 'Fractional', 'Floating'
+-- Every 'Array' is an instance of 'Eq', 'Num', 'Fractional', 'Floating'
 --
 -- 'Num'
 --
@@ -240,12 +240,6 @@ import Data.Word
 -- >>> scalar @Double 1 [10] /= scalar @Double 1 [10]
 -- False
 --
--- 'Ord'
---
--- >>> scalar @Double 1 [10] < scalar @Double 1 [10]
--- False
--- >>> scalar @Double 1 [10] > scalar @Double 1 [10]
--- False
 --
 -- 'Floating'
 --

src/ArrayFire/Orphans.hs

@@ -39,12 +39,6 @@ instance (Num a, AFType a) => Num (Array a) where
   x - y       = A.sub x y
   fromInteger = A.scalar . fromIntegral
 
-instance (Ord a, AFType a) => Ord (Array a) where
-  x < y  = A.allTrueAll (A.ltBatched x y False) == (1.0,0.0)
-  x > y  = A.allTrueAll (A.gtBatched x y False) == (1.0,0.0)
-  x <= y = A.allTrueAll (A.leBatched x y False) == (1.0,0.0)
-  x >= y = A.allTrueAll (A.geBatched x y False) == (1.0,0.0)
-
 instance Show (Array a) where
   show = arrayString