path: root/Tank.hs

module Tank ( Tank(..)
            ) where

data Tank = Tank
          { posx :: !Float
          , posy :: !Float
          , dir :: !Float
          } deriving Show