call rnf on the random UUID benchmark
commitea7fb0f4afada5633b87f6ab26d704bfdffe218e
authorMark Lentczner <markl@glyphic.com>
dateSat 26 Dec 2009, 19:26 (17 years ago)
parenta5fdff1
tests/BenchUUID.hs+1−1
@@ -33,5 +33,5 @@ main = do
3333 bench "fromString" $ B (rnf . U.fromString) s1,
3434 bench "toByteString" $ B (rnf . U.toByteString) u1,
3535 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)
3737 ]