diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-06-14 20:45:38 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-06-14 20:45:38 -0400 |
| commit | f3d1dd211b47d784b562a2251c5cd090ef06f8e9 (patch) | |
| tree | 007a39b8ec1bb309c40dca5501b2ab206204839e /src/Wavefront.hs | |
| parent | 98aa7d7177aaf46171b095bbb28e2f1e868323c5 (diff) | |
Removed nullBuilder agument (obsoleted by Rank2.fmap).
Diffstat (limited to 'src/Wavefront.hs')
| -rw-r--r-- | src/Wavefront.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Wavefront.hs b/src/Wavefront.hs index 1fc8ec3..0da9f41 100644 --- a/src/Wavefront.hs +++ b/src/Wavefront.hs | |||
| @@ -79,7 +79,7 @@ modifyFirst :: MonadState (c, d) m => (c -> c) -> m () | |||
| 79 | modifyFirst = modify' . first | 79 | modifyFirst = modify' . first |
| 80 | 80 | ||
| 81 | buildOBJ :: ObjBuilder (State (OBJ DList,Element ())) | 81 | buildOBJ :: ObjBuilder (State (OBJ DList,Element ())) |
| 82 | buildOBJ = (nullBuilder $ pure ()) | 82 | buildOBJ = nullBuilder |
| 83 | { vertex = \xs -> modifyFirst $ \o -> o { objLocations = objLocations o `DList.snoc` mkv xs } | 83 | { vertex = \xs -> modifyFirst $ \o -> o { objLocations = objLocations o `DList.snoc` mkv xs } |
| 84 | , vertexT = \xs -> modifyFirst $ \o -> o { objTexCoords = objTexCoords o `DList.snoc` mkt xs } | 84 | , vertexT = \xs -> modifyFirst $ \o -> o { objTexCoords = objTexCoords o `DList.snoc` mkt xs } |
| 85 | , vertexN = \xs -> modifyFirst $ \o -> o { objNormals = objNormals o `DList.snoc` mkn xs } | 85 | , vertexN = \xs -> modifyFirst $ \o -> o { objNormals = objNormals o `DList.snoc` mkn xs } |