From db50bc11dafa6834a4367427156306674063ed6b Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 19 Jun 2015 13:55:39 +0200 Subject: removed the annoying appN adapter for the foreign functions. replaced by several overloaded app variants in the style of the module Internal.Foreign contributed by Mike Ledger. --- packages/gsl/src/Numeric/GSL/Polynomials.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/gsl/src/Numeric/GSL/Polynomials.hs') diff --git a/packages/gsl/src/Numeric/GSL/Polynomials.hs b/packages/gsl/src/Numeric/GSL/Polynomials.hs index 246e301..8890f8f 100644 --- a/packages/gsl/src/Numeric/GSL/Polynomials.hs +++ b/packages/gsl/src/Numeric/GSL/Polynomials.hs @@ -48,7 +48,7 @@ polySolve = toList . polySolve' . fromList polySolve' :: Vector Double -> Vector (Complex Double) polySolve' v | size v > 1 = unsafePerformIO $ do r <- createVector (size v-1) - app2 c_polySolve vec v vec r "polySolve" + c_polySolve # v # r #| "polySolve" return r | otherwise = error "polySolve on a polynomial of degree zero" -- cgit v1.2.3