Add missing INLINE pragma
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 6 Dec 2009 14:34:29 +0000 (14:34 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sun, 6 Dec 2009 14:34:29 +0000 (14:34 +0000)
Data/Vector/Unboxed.hs

index 64dceb0..09fccfa 100644 (file)
@@ -73,6 +73,7 @@ import Prelude hiding ( length, null,
 #include "vector.h"
 
 instance (Unbox a, Eq a) => Eq (Vector a) where
+  {-# INLINE (==) #-}
   (==) = G.eq
 
 -- Length