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 3125ed9..bf60303 100644 --- a/test/bench.hs +++ b/test/bench.hs | |||
@@ -59,7 +59,7 @@ countVerticesSundqvist ts = List.length vs | |||
59 | countVerticesCrayne :: L.ByteString -> Int | 59 | countVerticesCrayne :: L.ByteString -> Int |
60 | countVerticesCrayne bs = execState (parseOBJ builder (ObjConfig IntMap.empty) bs) 0 | 60 | countVerticesCrayne 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 | ||