ref: 5bcc30b7813a7bd15717f44d57cfb0dcbab3c87e
dir: /tests/Bytestring.hs/
module Bytestring where
import Data.Word
import Data.ByteString
bs1 :: ByteString
bs1 = pack [1,2,3]
bs2 :: ByteString
bs2 = pack [1,2,4]
bs3 :: ByteString
bs3 = pack [1,2]
bs4 :: ByteString
bs4 = pack [1,3,4]
main :: IO ()
main = do
print (unpack bs1)
print bs1
print $ bs1 `append` bs2
print [ op x y | op <- [(==), (/=), (<), (<=), (>), (>=)]
, x <- [bs1, bs2, bs3, bs4]
, y <- [bs1, bs2, bs3, bs4]
]
print [ compare x y | x <- [bs1, bs2, bs3, bs4], y <- [bs1, bs2, bs3, bs4] ]
print $ unpack "abc"