Reorganized code to add Debris class

src/Tank.hs

@@ -0,0 +1,17 @@
+module Tank ( Tank(..)
+            ) where
+
+import Data.Fixed
+
+data Tank = Tank
+          { tankX             :: !Micro
+          , tankY             :: !Micro
+          , tankDir           :: !Micro
+          , tankAim           :: !Micro
+          , tankSpeed         :: !Micro
+          , tankTurnspeed     :: !Micro
+          , tankMoving        :: !Bool
+          , tankBulletSpeed   :: !Micro
+          , tankBulletBounces :: !Int
+          , tankBulletsLeft   :: !Int
+          } deriving Show