From dcfc8c84184ffd76680d5e7ef050a814dfff3966 Mon Sep 17 00:00:00 2001 From: Dominic Steinitz Date: Sun, 22 Apr 2018 14:05:00 +0100 Subject: Really fix the offside --- packages/gsl/src/Numeric/GSL/Internal.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'packages') 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) ww2 w1 o1 w2 o2 f = w1 o1 $ \a1 -> w2 o2 $ \a2 -> f a1 a2 vec x f = unsafeWith x $ \p -> do - let v g = do - g (fi $ V.length x) p + let v g = g (fi $ V.length x) p f v {-# INLINE vec #-} -- cgit v1.2.3