wavefront 0.5 → 0.5.1

raw patch · 4 files changed

+23/−37 lines, 4 files

Files

• CHANGELOG.md +4/−0
• src/Codec/Wavefront.hs +9/−27
• src/Codec/Wavefront/Token.hs +4/−4
• wavefront.cabal +6/−6

@@ -1,3 +1,7 @@+## 0.5.1++- Exported all useful constructors and symbols.+ # 0.5  #### Breaking changes

@@ -13,39 +13,21 @@  module Codec.Wavefront (     -- * Vertex location-    Location-  , locX-  , locY-  , locZ-  , locW+    Location(..)     -- * Vertex texture coordinates-  , TexCoord-  , texcoordR-  , texcoordS-  , texcoordT+  , TexCoord(..)     -- * Vertex normals-  , Normal-  , norX-  , norY-  , norZ+  , Normal(..)     -- * Points-  , Point-  , pointLocIndex+  , Point(..)     -- * Lines-  , Line-  , lineLocIndex-  , lineTexCoordIndex+  , Line(..)+  , LineIndex(..)     -- * Faces-  , Face-  , faceLocIndex-  , faceTexCoordIndex-  , faceNorIndex+  , Face(..)+  , FaceIndex(..)     -- * Element-  , Element-  , elObject-  , elGroups-  , elMtl-  , elValue+  , Element(..)     -- * Object   , WavefrontOBJ(..)     -- * Re-exports

@@ -121,14 +121,14 @@ lines :: Parser [Line] lines = do     skipSpace-    string "l "+    _ <- string "l "     skipHSpace     pointIndices <- parsePointIndices-    points <- case pointIndices of+    pts <- case pointIndices of       _:_:_ -> pure $ zipWith Line pointIndices (tail pointIndices)       _ -> fail "line doesn't have at least two points"     eol-    pure points+    pure pts   where     parsePointIndices = fmap (\(i,j) -> LineIndex i j) parseLinePair `sepBy1` skipHSpace     parseLinePair = do@@ -140,7 +140,7 @@ face :: Parser Face face = do     skipSpace-    string "f "+    _ <- string "f "     skipHSpace     faceIndices <- parseFaceIndices     f <- case faceIndices of

@@ -1,5 +1,5 @@ name:                wavefront-version:             0.5+version:             0.5.1 synopsis:            Wavefront OBJ loader description:         A Wavefront OBJ loader. Currently supports polygonal information. More could                      be added if needed (like curves and surface) if people contribute. Feel free@@ -25,17 +25,17 @@   ghc-options:         -W -Wall    exposed-modules:     Codec.Wavefront-                     , Codec.Wavefront.IO--  other-modules:       Codec.Wavefront.Element+                     , Codec.Wavefront.Element                      , Codec.Wavefront.Face-                     , Codec.Wavefront.Line+                     , Codec.Wavefront.IO                      , Codec.Wavefront.Location+                     , Codec.Wavefront.Line                      , Codec.Wavefront.Normal                      , Codec.Wavefront.Object                      , Codec.Wavefront.Point                      , Codec.Wavefront.TexCoord-                     , Codec.Wavefront.Token++  other-modules:       Codec.Wavefront.Token                      , Codec.Wavefront.Lexer    default-extensions:  OverloadedStrings