encoding003.hs 414 Bytes
Newer Older
batterseapower's avatar
batterseapower committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
import System.IO
import System.Directory
import Data.Char

tempFile = "temp"

create :: IO ()
create = do
    h <- openFile tempFile WriteMode
    hSetEncoding h latin1
    hPutStr h [chr 128]
    hClose h

main :: IO ()
main = do
    create

    utf8Ignore <- mkTextEncoding "UTF8//IGNORE"
    h <- openFile tempFile ReadMode
    hSetEncoding h utf8Ignore
    hGetContents h >>= putStrLn

    removeFile tempFile