From d3e50ab004d80943e456aee8e425f69ca3d01d5d Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Tue, 9 Mar 2010 02:00:21 +0100
Subject: Migrated from Make to Cabal

---
 HTanks.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'HTanks.hs')

diff --git a/HTanks.hs b/HTanks.hs
index 1937693..5e980fc 100644
--- a/HTanks.hs
+++ b/HTanks.hs
@@ -165,13 +165,13 @@ simulationStep = do
       shootingtanks = map (\(tank, _, n) -> (tank, n)) $ filter (\(tank, shoot, _) -> shoot && (shootsLeft tank) > 0) $ ts
       newtanks = map (\(tank, shoot, _) -> if shoot then tank {shootsLeft = (shootsLeft tank) - 1} else tank) $ ts
       newshoots = map (\(tank, n) -> Shoot
-                                { shootX = posx tank
-                                , shootY = posy tank
-                                , shootDir = aim tank
-                                , shootSpeed = tankShootSpeed tank
-                                , bouncesLeft = tankShootBounces tank
-                                , shootTank = n
-                                }) shootingtanks
+                                     { shootX = posx tank
+                                     , shootY = posy tank
+                                     , shootDir = aim tank
+                                     , shootSpeed = tankShootSpeed tank
+                                     , bouncesLeft = tankShootBounces tank
+                                     , shootTank = n
+                                     }) shootingtanks
   
   
   modify $ \state -> state {players = p}
-- 
cgit v1.2.3