From 68d71025f47fd3d4d2c1e4d4dcda2180f2565ddd Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <matthias@gamezock.de>
Date: Mon, 12 Apr 2010 02:17:42 +0200
Subject: Some minor changes

---
 src/Data/Obj3D.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'src/Data/Obj3D.hs')

diff --git a/src/Data/Obj3D.hs b/src/Data/Obj3D.hs
index c25deb8..4ef8151 100644
--- a/src/Data/Obj3D.hs
+++ b/src/Data/Obj3D.hs
@@ -1,9 +1,10 @@
-module Data.Obj3D ( processObj
+module Data.Obj3D ( ObjModel(..)
+                  , processObj
                   , loadObj
                   , loadObjFile
                   , Vertex
                   , VertexNormal
-                  , TexCoords
+                  , TexCoord
                   , FaceVertex
                   , Face
                   , SourceName
@@ -18,7 +19,7 @@ import Data.Obj3D.Parser
 
 data ObjModel = ObjModel
     { objVertices  :: [Vertex]
-    , objTexCoords :: [TexCoords]
+    , objTexCoords :: [TexCoord]
     , objNormals   :: [VertexNormal]
     , objFaces     :: [[Face]]
     } deriving Show
@@ -36,7 +37,7 @@ processObj objlines = ObjModel
       vertex _              = Nothing
       
       texcoords = catMaybes $ map texcoord objlines
-      texcoord (TexCoordsLine v) = Just v
+      texcoord (TexCoordLine v) = Just v
       texcoord _                 = Nothing
       
       
-- 
cgit v1.2.3