diff options
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 | ||