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