MicroHs-0.16.0.0: tests/BSCompress.hs

module BSCompress where
import System.IO.Serialize
import qualified Data.ByteString as BS

someText :: String
someText = unlines $ replicate 10 "hello, cruel world!"

main :: IO ()
main = do
  print $ length someText  -- force evaluation
  bs <- writeSerializedCompressedBS someText
  print bs
  print (BS.length bs)
  txt <- readSerializedBS bs
  print $ someText == txt