Add preliminary Eq instance for D.V.Unboxed
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 6 Dec 2009 14:03:19 +0000 (14:03 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 6 Dec 2009 14:03:19 +0000 (14:03 +0000)
Data/Vector/Unboxed.hs

index 948337e..64dceb0 100644 (file)
@@ -72,6 +72,9 @@ import Prelude hiding ( length, null,
 
 #include "vector.h"
 
+instance (Unbox a, Eq a) => Eq (Vector a) where
+  (==) = G.eq
+
 -- Length
 -- ------