diff options
Diffstat (limited to 'packages/gsl/src/Numeric/GSL/Polynomials.hs')
-rw-r--r-- | packages/gsl/src/Numeric/GSL/Polynomials.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/gsl/src/Numeric/GSL/Polynomials.hs b/packages/gsl/src/Numeric/GSL/Polynomials.hs index 46a31f3..7bd9404 100644 --- a/packages/gsl/src/Numeric/GSL/Polynomials.hs +++ b/packages/gsl/src/Numeric/GSL/Polynomials.hs | |||
@@ -49,7 +49,7 @@ polySolve = toList . polySolve' . fromList | |||
49 | polySolve' :: Vector Double -> Vector (Complex Double) | 49 | polySolve' :: Vector Double -> Vector (Complex Double) |
50 | polySolve' v | size v > 1 = unsafePerformIO $ do | 50 | polySolve' v | size v > 1 = unsafePerformIO $ do |
51 | r <- createVector (size v-1) | 51 | r <- createVector (size v-1) |
52 | c_polySolve # v # r #| "polySolve" | 52 | (v `applyRaw` (r `applyRaw` id)) c_polySolve #| "polySolve" |
53 | return r | 53 | return r |
54 | | otherwise = error "polySolve on a polynomial of degree zero" | 54 | | otherwise = error "polySolve on a polynomial of degree zero" |
55 | 55 | ||