Use more meaningful names

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
 #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