From 17ba35af029cee0122f91fc91427a307a5f11dfa Mon Sep 17 00:00:00 2001
From: Dominic Steinitz <dominic@steinitz.org>
Date: Mon, 19 Mar 2018 17:59:00 +0000
Subject: Fix naming

---
 packages/sundials/src/Bar.hsc | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'packages/sundials/src/Bar.hsc')

diff --git a/packages/sundials/src/Bar.hsc b/packages/sundials/src/Bar.hsc
index b1159b6..434c4d4 100644
--- a/packages/sundials/src/Bar.hsc
+++ b/packages/sundials/src/Bar.hsc
@@ -14,11 +14,11 @@ import Foreign.C.String
 
 
 getContentPtr :: Storable a => Ptr b -> IO a
-getContPtr ptr = (#peek BarType, content) ptr
+getContentPtr ptr = (#peek BarType, content) ptr
 
+getData :: Storable a => Ptr b -> IO a
 getData ptr = (#peek BazType, data) ptr
 
-foo ptr = do
-  qtr <- getContPtr ptr
-  getData qtr
+
+  
 
-- 
cgit v1.2.3