aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Spear/Physics/World.hs2
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.