summaryrefslogtreecommitdiff
path: root/test/bench.hs
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-06-14 20:45:38 -0400
committerJoe Crayne <joe@jerkface.net>2019-06-14 20:45:38 -0400
commitf3d1dd211b47d784b562a2251c5cd090ef06f8e9 (patch)
tree007a39b8ec1bb309c40dca5501b2ab206204839e /test/bench.hs
parent98aa7d7177aaf46171b095bbb28e2f1e868323c5 (diff)
Removed nullBuilder agument (obsoleted by Rank2.fmap).
Diffstat (limited to 'test/bench.hs')
-rw-r--r--test/bench.hs2
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
61countVerticesCrayne :: L.ByteString -> Int 61countVerticesCrayne :: L.ByteString -> Int
62countVerticesCrayne bs = execState (parseOBJ builder (ObjConfig IntMap.empty) bs) 0 62countVerticesCrayne 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