summaryrefslogtreecommitdiff
path: root/packages/gsl
diff options
context:
space:
mode:
Diffstat (limited to 'packages/gsl')
-rw-r--r--packages/gsl/src/Numeric/GSL/Internal.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/packages/gsl/src/Numeric/GSL/Internal.hs b/packages/gsl/src/Numeric/GSL/Internal.hs
index 1217162..e1f8d95 100644
--- a/packages/gsl/src/Numeric/GSL/Internal.hs
+++ b/packages/gsl/src/Numeric/GSL/Internal.hs
@@ -131,8 +131,7 @@ type TVM = TV (TM Res)
131ww2 w1 o1 w2 o2 f = w1 o1 $ \a1 -> w2 o2 $ \a2 -> f a1 a2 131ww2 w1 o1 w2 o2 f = w1 o1 $ \a1 -> w2 o2 $ \a2 -> f a1 a2
132 132
133vec x f = unsafeWith x $ \p -> do 133vec x f = unsafeWith x $ \p -> do
134 let v g = do 134 let v g = g (fi $ V.length x) p
135 g (fi $ V.length x) p
136 f v 135 f v
137{-# INLINE vec #-} 136{-# INLINE vec #-}
138 137