1 files changed, 7 insertions, 0 deletions
diff --git a/src/Model.hs b/src/Model.hs
index daec0c2..0c273e9 100644
--- a/src/Model.hs
+++ b/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"