diff options
Diffstat (limited to 'src/Data/Obj3D.hs')
| -rw-r--r-- | src/Data/Obj3D.hs | 9 |
1 files changed, 5 insertions, 4 deletions
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 |