diff options
Diffstat (limited to 'packages/sundials/src/Bar.hsc')
-rw-r--r-- | packages/sundials/src/Bar.hsc | 8 |
1 files changed, 4 insertions, 4 deletions
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 | |||
14 | 14 | ||
15 | 15 | ||
16 | getContentPtr :: Storable a => Ptr b -> IO a | 16 | getContentPtr :: Storable a => Ptr b -> IO a |
17 | getContPtr ptr = (#peek BarType, content) ptr | 17 | getContentPtr ptr = (#peek BarType, content) ptr |
18 | 18 | ||
19 | getData :: Storable a => Ptr b -> IO a | ||
19 | getData ptr = (#peek BazType, data) ptr | 20 | getData ptr = (#peek BazType, data) ptr |
20 | 21 | ||
21 | foo ptr = do | 22 | |
22 | qtr <- getContPtr ptr | 23 | |
23 | getData qtr | ||
24 | 24 | ||