ref: c101325aaf8ed0ec3c8c4ff4b7d425bba799825a
dir: /tests/Text.hs/
module Text where
import Data.Text as T
bs1 :: Text
bs1 = pack "abc"
bs2 :: Text
bs2 = pack "abd"
bs3 :: Text
bs3 = pack "ab"
bs4 :: Text
bs4 = pack "acd"
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 ("abc" :: Text)
print (T.head bs1)
print (T.tail bs1)
print (T.uncons bs1)
print (T.null bs1)
print (T.null (pack ""))