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

index 09fccfa..58eaf3f 100644 (file)
@@ -76,6 +76,10 @@ instance (Unbox a, Eq a) => Eq (Vector a) where
   {-# INLINE (==) #-}
   (==) = G.eq
 
+instance (Unbox a, Ord a) => Ord (Vector a) where
+  {-# INLINE compare #-}
+  compare = G.cmp
+
 -- Length
 -- ------