From 551cf7498c33bc0948bb4cb8444ae6f8af7278ea Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Thu, 8 May 2014 13:43:07 +0200
Subject: separation ok

---
 packages/hmatrix/src/Numeric/GSL/Polynomials.hs | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

(limited to 'packages/hmatrix/src/Numeric/GSL/Polynomials.hs')

diff --git a/packages/hmatrix/src/Numeric/GSL/Polynomials.hs b/packages/hmatrix/src/Numeric/GSL/Polynomials.hs
index 290c615..b1be85d 100644
--- a/packages/hmatrix/src/Numeric/GSL/Polynomials.hs
+++ b/packages/hmatrix/src/Numeric/GSL/Polynomials.hs
@@ -1,25 +1,23 @@
-{-# LANGUAGE CPP, ForeignFunctionInterface #-}
------------------------------------------------------------------------------
 {- |
 Module      :  Numeric.GSL.Polynomials
 Copyright   :  (c) Alberto Ruiz 2006
-License     :  GPL-style
-
-Maintainer  :  Alberto Ruiz (aruiz at um dot es)
+License     :  GPL
+Maintainer  :  Alberto Ruiz
 Stability   :  provisional
-Portability :  uses ffi
 
 Polynomials.
 
 <http://www.gnu.org/software/gsl/manual/html_node/General-Polynomial-Equations.html#General-Polynomial-Equations>
 
 -}
------------------------------------------------------------------------------
+
+
 module Numeric.GSL.Polynomials (
     polySolve
 ) where
 
-import Data.Packed.Internal
+import Data.Packed
+import Numeric.GSL.Internal
 import Data.Complex
 import System.IO.Unsafe (unsafePerformIO)
 
@@ -55,4 +53,5 @@ polySolve' v | dim v > 1 = unsafePerformIO $ do
     return r
              | otherwise = error "polySolve on a polynomial of degree zero"
 
-foreign import ccall unsafe "gsl-aux.h polySolve" c_polySolve:: TVCV
+foreign import ccall unsafe "gsl-aux.h polySolve" c_polySolve:: TV (TCV Res)
+
-- 
cgit v1.2.3