diff options
| -rw-r--r-- | Spear/Physics/World.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Spear/Physics/World.hs b/Spear/Physics/World.hs index 4ad0191..e0996e6 100644 --- a/Spear/Physics/World.hs +++ b/Spear/Physics/World.hs | |||
| @@ -131,7 +131,7 @@ setForces fs (ObjectID i) world = world { bodies = bodies' } | |||
| 131 | bs <- thaw $ bodies world | 131 | bs <- thaw $ bodies world |
| 132 | obj <- readArray bs i | 132 | obj <- readArray bs i |
| 133 | writeArray bs i $ fmap (\obj -> obj { forces = fs }) obj | 133 | writeArray bs i $ fmap (\obj -> obj { forces = fs }) obj |
| 134 | return bs | 134 | return bs |
| 135 | 135 | ||
| 136 | 136 | ||
| 137 | -- | Set the world's gravity. | 137 | -- | Set the world's gravity. |
