diff options
author | Marc Sunet <jeannekamikaze@gmail.com> | 2012-08-08 13:15:15 +0200 |
---|---|---|
committer | Marc Sunet <jeannekamikaze@gmail.com> | 2012-08-08 13:15:15 +0200 |
commit | 0663ba45c77b3222fda3074857dc3bf5ece7faec (patch) | |
tree | a35fdd4ff53968a0b95819748107a95e8dc1bf0a | |
parent | cefa451ff5088b60f3a224a59a1883201c2589d0 (diff) |
fixed whitespace
-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. |