git.iko.soy/typeable/uuid
on master help sign in
call rnf on the random UUID benchmark
ea7fb0fMark Lentczner
tests/BenchUUID.hs+1−1
compare with master
unifiedsplit
@@ -33,5 +33,5 @@ main = do
33 bench "fromString" $ B (rnf . U.fromString) s1,
33 bench "fromString" $ B (rnf . U.fromString) s1,
34 bench "toByteString" $ B (rnf . U.toByteString) u1,
34 bench "toByteString" $ B (rnf . U.toByteString) u1,
35 bench "fromByteString" $ B (rnf . U.fromByteString) b1,
35 bench "fromByteString" $ B (rnf . U.fromByteString) b1,
36− bench "random gen" $ (randomIO :: IO U.UUID)
36+ bench "random gen" $ rnf `fmap` (randomIO :: IO U.UUID)
37 ]
37 ]