Simplified texture and model loading; also use crosshair for DefaultPlayer

src/Model.hs

@@ -1,8 +1,15 @@
 module Model ( Model(..)
              , InterleavedObj
+             , modelPath
              ) where
 
+import Paths_htanks
 import Data.Obj3D.GL (InterleavedObj)
 
 data Model = ModelTank
              deriving (Eq, Ord, Show)
+
+modelPath :: Model -> IO FilePath
+modelPath t = getDataFileName $ "model/" ++ (name t) ++ ".obj"
+    where
+      name ModelTank = "tank"