Remove comment
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 7 Apr 2010 00:12:31 +0000 (00:12 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 7 Apr 2010 00:12:31 +0000 (00:12 +0000)
Data/Vector/Generic.hs

index 04ed7c6..eaecd39 100644 (file)
@@ -230,8 +230,6 @@ streamR v = v `seq` (Stream.unfoldr get n `Stream.sized` Exact n)
   where
     n = length v
 
-    -- NOTE: the False case comes first in Core so making it the recursive one
-    -- makes the code easier to read
     {-# INLINE get #-}
     get 0 = Nothing
     get i = let i' = i-1