From 2fc97b003f704d57ac7f798ed881f8c9ccab9918 Mon Sep 17 00:00:00 2001 From: Dominic Steinitz Date: Mon, 2 Apr 2018 08:09:24 +0100 Subject: Fix warnings --- packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'packages/sundials/src/Numeric/Sundials/ARKode') diff --git a/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs b/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs index 5af9e41..b419843 100644 --- a/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs +++ b/packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs @@ -87,8 +87,8 @@ getDataFromContents len ptr = do vectorFromC len rtr -- FIXME: Potentially an instance of Storable -getMatrixDataFromContents :: Ptr T.SunMatrix -> IO T.SunMatrix -getMatrixDataFromContents ptr = do +_getMatrixDataFromContents :: Ptr T.SunMatrix -> IO T.SunMatrix +_getMatrixDataFromContents ptr = do qtr <- B.getContentMatrixPtr ptr rs <- B.getNRows qtr cs <- B.getNCols qtr @@ -239,8 +239,8 @@ solveOdeC method jacH relTol absTol fun f0 ts = unsafePerformIO $ do Ptr () -> Ptr T.SunVector -> Ptr T.SunVector -> Ptr T.SunVector -> IO CInt jacIO t y _fy jacS _ptr _tmp1 _tmp2 _tmp3 = do - foo <- jacH t <$> getDataFromContents dim y - putMatrixDataFromContents foo jacS + j <- jacH t <$> getDataFromContents dim y + putMatrixDataFromContents j jacS -- FIXME: I don't understand what this comment means -- Unsafe since the function will be called many times. [CU.exp| int{ 0 } |] -- cgit v1.2.3