diff options
Diffstat (limited to 'src/Codec/Wavefront/Object.hs')
| -rw-r--r-- | src/Codec/Wavefront/Object.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Codec/Wavefront/Object.hs b/src/Codec/Wavefront/Object.hs index bdd756f..26d85c2 100644 --- a/src/Codec/Wavefront/Object.hs +++ b/src/Codec/Wavefront/Object.hs | |||
| @@ -44,10 +44,10 @@ data WavefrontOBJ = WavefrontOBJ { | |||
| 44 | 44 | ||
| 45 | ctxtToWavefrontOBJ :: Ctxt -> WavefrontOBJ | 45 | ctxtToWavefrontOBJ :: Ctxt -> WavefrontOBJ |
| 46 | ctxtToWavefrontOBJ ctxt = WavefrontOBJ { | 46 | ctxtToWavefrontOBJ ctxt = WavefrontOBJ { |
| 47 | objLocations = fromDList (ctxtLocations ctxt) | 47 | objLocations = fromDList (snd $ ctxtLocations ctxt) |
| 48 | , objTexCoords = fromDList (ctxtTexCoords ctxt) | 48 | , objTexCoords = fromDList (snd $ ctxtTexCoords ctxt) |
| 49 | , objNormals = fromDList (ctxtNormals ctxt) | 49 | , objNormals = fromDList (snd $ ctxtNormals ctxt) |
| 50 | , objParamCoords = fromDList (ctxtParamCoords ctxt) | 50 | , objParamCoords = fromDList (snd $ ctxtParamCoords ctxt) |
| 51 | , objPoints = fromDList (ctxtPoints ctxt) | 51 | , objPoints = fromDList (ctxtPoints ctxt) |
| 52 | , objLines = fromDList (ctxtLines ctxt) | 52 | , objLines = fromDList (ctxtLines ctxt) |
| 53 | , objFaces = fromDList (ctxtFaces ctxt) | 53 | , objFaces = fromDList (ctxtFaces ctxt) |