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 | |
| parent | ceef0be7afe2292905e48e4a055e13cc2de70b2b (diff) | |
Really fix the offside
| -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 | ||