diff options
Diffstat (limited to 'lib/Data/Packed/Internal/Vector.hs')
-rw-r--r-- | lib/Data/Packed/Internal/Vector.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Data/Packed/Internal/Vector.hs b/lib/Data/Packed/Internal/Vector.hs index 2df33e0..f590919 100644 --- a/lib/Data/Packed/Internal/Vector.hs +++ b/lib/Data/Packed/Internal/Vector.hs | |||
@@ -99,6 +99,7 @@ n |> l = if length l == n then fromList l else error "|> with wrong size" | |||
99 | -- | access to Vector elements without range checking | 99 | -- | access to Vector elements without range checking |
100 | at' :: Storable a => Vector a -> Int -> a | 100 | at' :: Storable a => Vector a -> Int -> a |
101 | at' v n = safeRead v $ flip peekElemOff n | 101 | at' v n = safeRead v $ flip peekElemOff n |
102 | {-# INLINE at' #-} | ||
102 | 103 | ||
103 | -- | 104 | -- |
104 | -- turn off bounds checking with -funsafe at configure time. | 105 | -- turn off bounds checking with -funsafe at configure time. |