1 files changed, 3 insertions, 11 deletions

diff --git a/packages/sundials/src/Types.hs b/packages/sundials/src/Types.hs
index 9654527..e910c57 100644
--- a/packages/sundials/src/Types.hs
+++ b/packages/sundials/src/Types.hs
@@ -9,31 +9,23 @@
 module Types where
 
 import           Foreign.C.Types
-import           Foreign.Ptr (Ptr)
-
-import           Foreign.Storable (Storable(..))
 
 import qualified Language.Haskell.TH as TH
 import qualified Language.C.Types as CT
 import qualified Data.Map as Map
 import           Language.C.Inline.Context
 
-data BarType
 
-instance Storable BarType where
-    sizeOf _ = sizeOf (undefined :: BarType)
-    alignment _ = alignment (undefined :: Ptr ())
-    peek _ = error "peek not implemented for BarType"
-    poke _ _ = error "poke not implemented for BarType"
+data SunVector
 
--- This is a lie!!!
+-- FIXME: Is this true?
 type SunIndexType = CLong
 
 sunTypesTable :: Map.Map CT.TypeSpecifier TH.TypeQ
 sunTypesTable = Map.fromList
   [
     (CT.TypeName "sunindextype", [t| SunIndexType |] )
-  , (CT.TypeName "BarType", [t| BarType |] )
+  , (CT.TypeName "SunVector", [t| SunVector |] )
   ]
 
 sunCtx :: Context