diff options
Diffstat (limited to 'src/Game.hs')
| -rw-r--r-- | src/Game.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Game.hs b/src/Game.hs index 16b04d8..c97b5de 100644 --- a/src/Game.hs +++ b/src/Game.hs @@ -8,13 +8,12 @@ module Game ( Bullet(..) import Level import Tank -import Transformable import Vector data Bullet = Bullet { bulletPos :: !Vertex - , bulletDir :: !Vector + , bulletDir :: !Rotation , bulletSpeed :: !Coord , bulletBouncesLeft :: !Int , bulletTank :: !Int @@ -27,7 +26,7 @@ bulletY :: Bullet -> Coord bulletY = vertexY . bulletPos instance Transformable Bullet where - t >< b = b { bulletPos = pos, bulletDir = dir } where + transform t b = b { bulletPos = pos, bulletDir = dir } where pos = t >< bulletPos b dir = t >< bulletDir b |