Skip to content

Instantly share code, notes, and snippets.

@kamalmarhubi
Created April 1, 2013 14:36
Show Gist options
  • Save kamalmarhubi/5285279 to your computer and use it in GitHub Desktop.
Save kamalmarhubi/5285279 to your computer and use it in GitHub Desktop.
{-# 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
{-# LANGUAGE OverloadedStrings #-}
import Data.Text.IO as T
import Control.Monad (forever)
main = do
forever $ T.putStrLn "montréal"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment