lazy-bytestring-cycle.hs

{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Text.Lazy as T
import qualified Data.Text.Lazy.IO as T
import qualified Data.Text.Lazy.Encoding as E
import qualified Data.ByteString.Lazy as L

mtl = "montréal\n" :: T.Text
long = L.cycle $ E.encodeUtf8 mtl
main = L.putStr long

text.hs

{-# LANGUAGE OverloadedStrings #-}
import Data.Text.IO as T
import Control.Monad (forever)

main = do
  forever $ T.putStrLn "montréal"