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 /test/bench.hs | |
parent | 98aa7d7177aaf46171b095bbb28e2f1e868323c5 (diff) |
Removed nullBuilder agument (obsoleted by Rank2.fmap).
Diffstat (limited to 'test/bench.hs')
-rw-r--r-- | test/bench.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/bench.hs b/test/bench.hs index a8ba239..e610e84 100644 --- a/test/bench.hs +++ b/test/bench.hs | |||
@@ -61,7 +61,7 @@ countVerticesSundqvist ts = List.length vs | |||
61 | countVerticesCrayne :: L.ByteString -> Int | 61 | countVerticesCrayne :: L.ByteString -> Int |
62 | countVerticesCrayne bs = execState (parseOBJ builder (ObjConfig IntMap.empty) bs) 0 | 62 | countVerticesCrayne bs = execState (parseOBJ builder (ObjConfig IntMap.empty) bs) 0 |
63 | where | 63 | where |
64 | builder = (nullBuilder $ return ()) | 64 | builder = nullBuilder |
65 | { vertex = \_ -> modify succ | 65 | { vertex = \_ -> modify succ |
66 | } | 66 | } |
67 | 67 | ||