Renamed WiimotePlayer to HWiidPlayer

src/HTanks.hs

@@ -7,7 +7,7 @@ import Render
 import Player
 import CPUPlayer
 import DefaultPlayer
-import WiimotePlayer
+import HWiidPlayer
 import Simulation
 import Tank
 
@@ -27,14 +27,14 @@ import Foreign.C.Types
 main :: IO ()
 main = do
   let theLevel = testLevel
-  wiimotePlayer <- newWiimotePlayer
+  hwiidPlayer <- newHWiidPlayer
   gl <- initGL $ glxDriver (levelWidth theLevel) (levelHeight theLevel)
   
   when (initialized gl) $ do
          currentTime <- getCurrentTime
          let mainState = MainState {run = True, driver = SomeDriver gl, time = currentTime, players =
                                           [ --SomePlayer $ DefaultPlayer S.empty 0 0 False
-                                            SomePlayer $ wiimotePlayer
+                                            SomePlayer $ hwiidPlayer
                                           , SomePlayer $ CPUPlayer 0
                                           ], textures = M.empty}
              gameState = GameState {level = theLevel, tanks = [ Tank 5.0 5.0 0 0 1.5 270 False 3 1 5 1