Hipmunk 5.2.0.9 → 5.2.0.10

raw patch · 2 files changed

+3/−6 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Hipmunk.cabal +1/−1
• Physics/Hipmunk/Space.hsc +2/−5

@@ -3,7 +3,7 @@ Tested-With:   GHC Category:      Physics, Game Name:          Hipmunk-Version:       5.2.0.9+Version:       5.2.0.10 Stability:     provisional License:       OtherLicense License-File:  LICENSE

@@ -62,7 +62,6 @@ import Data.IORef import Data.StateVar import Foreign hiding (new)-import qualified Foreign.ForeignPtr.Unsafe import Foreign.C.Types (CInt(..)) #include "wrapper.h" @@ -172,8 +171,7 @@ spaceAddHelper get_ add toShape =     \(P sp entities _) new_c ->         let new  = get_ new_c-            key  = Foreign.ForeignPtr.Unsafe.unsafeForeignPtrToPtr $-                        castForeignPtr new+            key  = unsafeForeignPtrToPtr $ castForeignPtr new             val  = case toShape new_c of                      Just shape -> Right shape                      Nothing    -> Left (castForeignPtr new)@@ -188,8 +186,7 @@ spaceRemoveHelper get_ remove =     \(P sp entities _) old_c -> do       let old  = get_ old_c-          key  = Foreign.ForeignPtr.Unsafe.unsafeForeignPtrToPtr $-                        castForeignPtr old+          key  = unsafeForeignPtrToPtr $ castForeignPtr old       modifyIORef' entities (M.delete key)       withForeignPtr sp $ \sp_ptr ->         withForeignPtr old $ \old_ptr ->