blob: 12ed28b6574b1a1eb0b127263242d3e2b527ce6d (
plain)
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
|