diff options
| author | Dominic Steinitz <dominic@steinitz.org> | 2018-03-19 17:59:00 +0000 |
|---|---|---|
| committer | Dominic Steinitz <dominic@steinitz.org> | 2018-03-19 17:59:00 +0000 |
| commit | 17ba35af029cee0122f91fc91427a307a5f11dfa (patch) | |
| tree | 2a57ed3cda8d8125c545f5a64ea915495526688d | |
| parent | fce6059d26b0cdaa211232b4812c614fc0076818 (diff) | |
Fix naming
| -rw-r--r-- | packages/sundials/hmatrix-sundials.cabal (renamed from packages/sundials/sundials.cabal) | 0 | ||||
| -rw-r--r-- | packages/sundials/src/Bar.hsc | 8 |
2 files changed, 4 insertions, 4 deletions
diff --git a/packages/sundials/sundials.cabal b/packages/sundials/hmatrix-sundials.cabal index 43a83d0..43a83d0 100644 --- a/packages/sundials/sundials.cabal +++ b/packages/sundials/hmatrix-sundials.cabal | |||
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 | ||