Fix tests, remove overlapping instance for Eq []

Author: paf31

src/Data/Array.purs

@@ -232,12 +232,6 @@ foreign import sortJS
 instance showArray :: (Show a) => Show [a] where
   show xs = "[" ++ joinWith (map show xs) "," ++ "]"
 
-instance eqArray :: (Eq a) => Eq [a] where
-  (==) [] [] = true
-  (==) (x:xs) (y:ys) = x == y && xs == ys
-  (==) _ _ = false
-  (/=) xs ys = not (xs == ys)
-
 instance monadArray :: Monad [] where
   return = singleton
   (>>=) = flip concatMap

tests/Simple.purs

@@ -41,10 +41,10 @@ main = do
   assertEq (length nil) 0
 
   assertEq (indexOf [1, 2, 1] 1) 0
-  assertEq (indexOf [1, 2, 1] 4) -1
+  assertEq (indexOf [1, 2, 1] 4) (-1)
 
   assertEq (lastIndexOf [1, 2, 1] 1) 2
-  assertEq (lastIndexOf [1, 2, 1] 4) -1
+  assertEq (lastIndexOf [1, 2, 1] 4) (-1)
 
   assertEq (concat [1, 2] [3, 4]) [1, 2, 3, 4]
   assertEq (concat [1] nil) [1]