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. |