@@ -34,10 +34,17 @@ main = do
34 let s1 = U.toString u1
34 let s1 = U.toString u1
35 b1 = U.toByteString u1
35 b1 = U.toByteString u1
36 n1 = (map (fromIntegral . ord) "http://www.haskell.org/") :: [Word8]
36 n1 = (map (fromIntegral . ord) "http://www.haskell.org/") :: [Word8]
38+ U.fromString "00000000-0000-0000-0000-000000000000"
39+ u2a = fromJust $ U.fromString "169a5a43-c051-4a16-98f4-08447ddd5dc0"
40+ u2b = fromJust $ U.fromByteString $
41+ BL.pack [0x16, 0x9a, 0x5a, 0x43, 0xc0, 0x51, 0x4a, 0x16,
42+ 0x98, 0xf4, 0x08, 0x44, 0x7d, 0xdd, 0x5d, 0xc0]
43+ u3 = fromJust $ U.fromString "dea6f619-1038-438b-b4af-f1cdec1e6e23"
37 defaultMain [
44 defaultMain [
38 bgroup "null" [
45 bgroup "null" [
39− bench "null" $ whnf U.null u1,
46+ bench "null" $ B U.null u1,
40− bench "null nil" $ whnf U.null U.nil
47+ bench "null nil" $ B U.null U.nil
42 bgroup "conversion" [
49 bgroup "conversion" [
43 bench "toString" $ nf U.toString u1,
50 bench "toString" $ nf U.toString u1,