diff options
author | Dominic Steinitz <dominic@steinitz.org> | 2018-04-02 08:09:24 +0100 |
---|---|---|
committer | Dominic Steinitz <dominic@steinitz.org> | 2018-04-02 08:09:24 +0100 |
commit | 2fc97b003f704d57ac7f798ed881f8c9ccab9918 (patch) | |
tree | 755825532090452a122d611d85d0cfdb50dea3a9 /packages/sundials/src/Numeric/Sundials | |
parent | 3c4411e48cbcfaf8035e893ac63aa250fcc56d3e (diff) |
Fix warnings
Diffstat (limited to 'packages/sundials/src/Numeric/Sundials')
-rw-r--r-- | packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 | |||
87 | vectorFromC len rtr | 87 | vectorFromC len rtr |
88 | 88 | ||
89 | -- FIXME: Potentially an instance of Storable | 89 | -- FIXME: Potentially an instance of Storable |
90 | getMatrixDataFromContents :: Ptr T.SunMatrix -> IO T.SunMatrix | 90 | _getMatrixDataFromContents :: Ptr T.SunMatrix -> IO T.SunMatrix |
91 | getMatrixDataFromContents ptr = do | 91 | _getMatrixDataFromContents ptr = do |
92 | qtr <- B.getContentMatrixPtr ptr | 92 | qtr <- B.getContentMatrixPtr ptr |
93 | rs <- B.getNRows qtr | 93 | rs <- B.getNRows qtr |
94 | cs <- B.getNCols qtr | 94 | cs <- B.getNCols qtr |
@@ -239,8 +239,8 @@ solveOdeC method jacH relTol absTol fun f0 ts = unsafePerformIO $ do | |||
239 | Ptr () -> Ptr T.SunVector -> Ptr T.SunVector -> Ptr T.SunVector -> | 239 | Ptr () -> Ptr T.SunVector -> Ptr T.SunVector -> Ptr T.SunVector -> |
240 | IO CInt | 240 | IO CInt |
241 | jacIO t y _fy jacS _ptr _tmp1 _tmp2 _tmp3 = do | 241 | jacIO t y _fy jacS _ptr _tmp1 _tmp2 _tmp3 = do |
242 | foo <- jacH t <$> getDataFromContents dim y | 242 | j <- jacH t <$> getDataFromContents dim y |
243 | putMatrixDataFromContents foo jacS | 243 | putMatrixDataFromContents j jacS |
244 | -- FIXME: I don't understand what this comment means | 244 | -- FIXME: I don't understand what this comment means |
245 | -- Unsafe since the function will be called many times. | 245 | -- Unsafe since the function will be called many times. |
246 | [CU.exp| int{ 0 } |] | 246 | [CU.exp| int{ 0 } |] |