diff options
author | Dominic Steinitz <dominic@steinitz.org> | 2018-04-22 14:05:00 +0100 |
---|---|---|
committer | Dominic Steinitz <dominic@steinitz.org> | 2018-04-22 14:05:00 +0100 |
commit | dcfc8c84184ffd76680d5e7ef050a814dfff3966 (patch) | |
tree | 390a4c4759d8afaa6b5f9cf1762d7753b88e2903 /packages/gsl/src/Numeric | |
parent | ceef0be7afe2292905e48e4a055e13cc2de70b2b (diff) |
Really fix the offside
Diffstat (limited to 'packages/gsl/src/Numeric')
-rw-r--r-- | packages/gsl/src/Numeric/GSL/Internal.hs | 3 |
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) | |||
131 | ww2 w1 o1 w2 o2 f = w1 o1 $ \a1 -> w2 o2 $ \a2 -> f a1 a2 | 131 | ww2 w1 o1 w2 o2 f = w1 o1 $ \a1 -> w2 o2 $ \a2 -> f a1 a2 |
132 | 132 | ||
133 | vec x f = unsafeWith x $ \p -> do | 133 | vec 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 | ||