@@ -43,11 +43,11 @@ main = do
4343 u3 = fromJust $ U.fromString "dea6f619-1038-438b-b4af-f1cdec1e6e23"
4444 defaultMain [
4545 bgroup "testing" [
46− bench "null non-nil" $ B U.null u1,
47− bench "null nil" $ B U.null U.nil,
48− bench "null nil2" $ B U.null nil2,
49− bench "eq same" $ B (==u2a) u2b,
50− bench "eq differ" $ B (==u2a) u3
46+ bench "null non-nil" $ whnf U.null u1,
47+ bench "null nil" $ whnf U.null U.nil,
48+ bench "null nil2" $ whnf U.null nil2,
49+ bench "eq same" $ whnf (==u2a) u2b,
50+ bench "eq differ" $ whnf (==u2a) u3
5151 ],
5252 bgroup "conversion" [
5353 bench "toString" $ nf U.toString u1,