diff options
Diffstat (limited to 'src/Model.hs')
-rw-r--r-- | src/Model.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Model.hs b/src/Model.hs index 0c273e9..e2c045a 100644 --- a/src/Model.hs +++ b/src/Model.hs @@ -6,10 +6,12 @@ module Model ( Model(..) import Paths_htanks import Data.Obj3D.GL (InterleavedObj) -data Model = ModelTank +data Model = ModelTank | ModelBullet | ModelBlock deriving (Eq, Ord, Show) modelPath :: Model -> IO FilePath modelPath t = getDataFileName $ "model/" ++ (name t) ++ ".obj" where name ModelTank = "tank" + name ModelBullet = "bullet" + name ModelBlock = "cube" |