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 3125ed9..bf60303 100644
--- a/test/bench.hs
+++ b/test/bench.hs
@@ -59,7 +59,7 @@ countVerticesSundqvist ts = List.length vs
59countVerticesCrayne :: L.ByteString -> Int 59countVerticesCrayne :: L.ByteString -> Int
60countVerticesCrayne bs = execState (parseOBJ builder (ObjConfig IntMap.empty) bs) 0 60countVerticesCrayne bs = execState (parseOBJ builder (ObjConfig IntMap.empty) bs) 0
61 where 61 where
62 builder = nullBuilder 62 builder = (nullBuilder $ return ())
63 { vertex = \_ -> modify succ 63 { vertex = \_ -> modify succ
64 } 64 }
65 65