diff options
Diffstat (limited to 'packages/sundials/src/Bar.hsc')
-rw-r--r-- | packages/sundials/src/Bar.hsc | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/packages/sundials/src/Bar.hsc b/packages/sundials/src/Bar.hsc index 7d53af9..4fe1b4b 100644 --- a/packages/sundials/src/Bar.hsc +++ b/packages/sundials/src/Bar.hsc | |||
@@ -10,15 +10,14 @@ import Foreign.C.String | |||
10 | #include "/Users/dom/sundials/include/nvector/nvector_serial.h" | 10 | #include "/Users/dom/sundials/include/nvector/nvector_serial.h" |
11 | #include "/Users/dom/sundials/include/arkode/arkode.h" | 11 | #include "/Users/dom/sundials/include/arkode/arkode.h" |
12 | 12 | ||
13 | #def typedef struct _generic_N_Vector BarType; | 13 | #def typedef struct _generic_N_Vector SunVector; |
14 | #def typedef struct _N_VectorContent_Serial BazType; | 14 | #def typedef struct _N_VectorContent_Serial SunContent; |
15 | |||
16 | 15 | ||
17 | getContentPtr :: Storable a => Ptr b -> IO a | 16 | getContentPtr :: Storable a => Ptr b -> IO a |
18 | getContentPtr ptr = (#peek BarType, content) ptr | 17 | getContentPtr ptr = (#peek SunVector, content) ptr |
19 | 18 | ||
20 | getData :: Storable a => Ptr b -> IO a | 19 | getData :: Storable a => Ptr b -> IO a |
21 | getData ptr = (#peek BazType, data) ptr | 20 | getData ptr = (#peek SunContent, data) ptr |
22 | 21 | ||
23 | arkSMax :: Int | 22 | arkSMax :: Int |
24 | arkSMax = #const ARK_S_MAX | 23 | arkSMax = #const ARK_S_MAX |