Used fixed point numbers for coordinates

1 files changed, 5 insertions, 3 deletions

diff --git a/Tank.hs b/Tank.hs
index c5bf465..4e1f02a 100644
--- a/Tank.hs
+++ b/Tank.hs
@@ -1,8 +1,10 @@
 module Tank ( Tank(..)
             ) where
 
+import Data.Fixed
+
 data Tank = Tank
-          { posx :: !Float
-          , posy :: !Float
-          , dir :: !Float
+          { posx :: !Micro
+          , posy :: !Micro
+          , dir  :: !Micro
           } deriving Show