From 71a3071a0ecc5c8ebf2b9c0a66a472ff187fdd06 Mon Sep 17 00:00:00 2001 From: Dominic Steinitz Date: Thu, 29 Mar 2018 18:11:24 +0100 Subject: Use more meaningful names --- packages/sundials/src/Bar.hsc | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'packages/sundials/src/Bar.hsc') 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 #include "/Users/dom/sundials/include/nvector/nvector_serial.h" #include "/Users/dom/sundials/include/arkode/arkode.h" -#def typedef struct _generic_N_Vector BarType; -#def typedef struct _N_VectorContent_Serial BazType; - +#def typedef struct _generic_N_Vector SunVector; +#def typedef struct _N_VectorContent_Serial SunContent; getContentPtr :: Storable a => Ptr b -> IO a -getContentPtr ptr = (#peek BarType, content) ptr +getContentPtr ptr = (#peek SunVector, content) ptr getData :: Storable a => Ptr b -> IO a -getData ptr = (#peek BazType, data) ptr +getData ptr = (#peek SunContent, data) ptr arkSMax :: Int arkSMax = #const ARK_S_MAX -- cgit v1.2.3