Fix fixity of (!!) and (!)
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 18 Aug 2011 22:21:59 +0000 (22:21 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 18 Aug 2011 22:21:59 +0000 (22:21 +0000)
Data/Vector/Fusion/Stream.hs
Data/Vector/Fusion/Stream/Monadic.hs
Data/Vector/Generic.hs

index 18bbabf..f510c91 100644 (file)
@@ -199,6 +199,7 @@ last :: Stream a -> a
 {-# INLINE last #-}
 last = unId . M.last
 
+infixl 9 !!
 -- | Element at the given position
 (!!) :: Stream a -> Int -> a
 {-# INLINE (!!) #-}
index b781e58..6c732d1 100644 (file)
@@ -255,6 +255,7 @@ last (Stream step s _) = last_loop0 SPEC s
             Skip    s' -> last_loop1 SPEC x s'
             Done       -> return x
 
+infixl 9 !!
 -- | Element at the given position
 (!!) :: Monad m => Stream m a -> Int -> m a
 {-# INLINE (!!) #-}
index e9916c1..cd5d17e 100644 (file)
@@ -231,6 +231,7 @@ null v = basicLength v == 0
 -- Indexing
 -- --------
 
+infixl 9 !
 -- | O(1) Indexing
 (!) :: Vector v a => v a -> Int -> a
 {-# INLINE_STREAM (!) #-}