1 files changed, 5 insertions, 1 deletions

diff --git a/packages/sundials/src/Bar.hsc b/packages/sundials/src/Bar.hsc
index 434c4d4..7db0d4a 100644
--- a/packages/sundials/src/Bar.hsc
+++ b/packages/sundials/src/Bar.hsc
@@ -1,6 +1,6 @@
 {-# LANGUAGE RecordWildCards #-}
 
-module Example where
+module Bar where
 
 import Foreign
 import Foreign.C.Types
@@ -8,6 +8,7 @@ import Foreign.C.String
 
 #include "/Users/dom/sundials/include/sundials/sundials_nvector.h"
 #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;
@@ -19,6 +20,9 @@ getContentPtr ptr = (#peek BarType, content) ptr
 getData :: Storable a => Ptr b -> IO a
 getData ptr = (#peek BazType, data) ptr
 
+arkSMax :: Int
+arkSMax = #const ARK_S_MAX
+