1 files changed, 6 insertions, 1 deletions

diff --git a/src/Graphics/Formats/Collada/ColladaTypes.hs b/src/Graphics/Formats/Collada/ColladaTypes.hs
index ad78aa8..89ebde8 100644
--- a/src/Graphics/Formats/Collada/ColladaTypes.hs
+++ b/src/Graphics/Formats/Collada/ColladaTypes.hs
@@ -25,6 +25,7 @@ module Graphics.Formats.Collada.ColladaTypes
     Profile(..), NewParam(..), TechniqueCommon(..), Material, Effect,

     C(..), Color(..),

     Animation(..),

+    TextureObject(..),

     Fx_common_color_type(..), Fx_common_texture_type(..), Texture(..),

         Interpolation(..),

 )

@@ -32,9 +33,13 @@ where
 

 import Data.Tree

 import Data.Vector

-import Graphics.Rendering.OpenGL (TextureObject)

+import Data.Word

 import Graphics.Formats.Collada.Vector2D3D (V3(..), V4(..))

 

+-- Coercible to Graphics.Rendering.OpenGL.TextureObject

+newtype TextureObject = TextureObject { textureID :: Word32 }

+   deriving ( Eq, Ord, Show )

+

 type Mat44 = ((Float,Float,Float,Float),

               (Float,Float,Float,Float),

                           (Float,Float,Float,Float),