summaryrefslogtreecommitdiff
path: root/lib/Data/Packed/Internal/Vector.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Data/Packed/Internal/Vector.hs')
-rw-r--r--lib/Data/Packed/Internal/Vector.hs1
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
100at' :: Storable a => Vector a -> Int -> a 100at' :: Storable a => Vector a -> Int -> a
101at' v n = safeRead v $ flip peekElemOff n 101at' 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.