summaryrefslogtreecommitdiff
path: root/test/bench.hs
diff options
context:
space:
mode:
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