From 7cfba6b4eb311590986a888255cd1dc594bd7264 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 20 Oct 2010 07:19:06 +0000 Subject: mkComplex_e and other complex special functions --- packages/special/lib/Numeric/GSL/Special/Internal.hsc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'packages/special/lib/Numeric/GSL/Special/Internal.hsc') diff --git a/packages/special/lib/Numeric/GSL/Special/Internal.hsc b/packages/special/lib/Numeric/GSL/Special/Internal.hsc index d1a9c57..ae735df 100644 --- a/packages/special/lib/Numeric/GSL/Special/Internal.hsc +++ b/packages/special/lib/Numeric/GSL/Special/Internal.hsc @@ -33,7 +33,6 @@ import Foreign import Data.Packed.Development(check,(//)) import Foreign.C.Types(CSize,CInt) - data Precision = PrecDouble | PrecSingle | PrecApprox precCode :: Precision -> Int @@ -90,7 +89,7 @@ createSFR s f = unsafePerformIO $ do return (val,err) ---------------------------------------------------------------- --- | access to two sf_result +-- | access to two sf_result's create2SFR :: String -> (Ptr a -> Ptr a -> IO CInt) -> ((Double, Double),(Double, Double)) create2SFR s f = unsafePerformIO $ do p1 <- malloc :: IO (Ptr Gsl_sf_result) -- cgit v1.2.3