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/ARKode/ODE.hs | |
| parent | 3c4411e48cbcfaf8035e893ac63aa250fcc56d3e (diff) | |
Fix warnings
Diffstat (limited to 'packages/sundials/src/Numeric/Sundials/ARKode/ODE.hs')
| -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 } |] |