@@ -1,8 +1,8 @@
1−{-# LANGUAGE OverloadedStrings #-}
21{-# LANGUAGE ViewPatterns #-}
32import Control.Monad (replicateM)
43import Data.Bits
54import qualified Data.ByteString.Lazy as BL
5+import qualified Data.ByteString.Lazy.Char8 as BL8
66import qualified Data.ByteString.Char8 as BC8
77import Data.Char (ord)
88import Data.Functor ((<$>))
@@ -88,7 +88,8 @@ test_v5 = H.TestList [
8888test_fromByteString :: H.Test
8989test_fromByteString =
9090 "UUID fromByteString" ~:
91− Just inputUUID @=? U.fromByteString "\165\202\133f\217\197H5\153\200\225\241>s\181\226"
91+ Just inputUUID @=?
92+ U.fromByteString (BL8.pack "\165\202\133f\217\197H5\153\200\225\241>s\181\226")
9293
9394-- | Test fromWords with a fixed-input
9495test_fromWords :: H.Test