haskell - 在 Haskell 中使用 UTF-8 读取文件作为 IO 字符串

Question

我有以下代码可以正常工作，除非文件有 utf-8字符:

module Main where
import Ref
main = do
    text <- getLine
    theInput <- readFile text
    writeFile ("a"++text) (unlist . proc . lines $ theInput)

使用 utf-8 字符我得到这个: hGetContents: invalid argument (invalid byte sequence)
由于我正在使用的文件有 UTF-8字符，我想处理这个异常以便重用从 Ref 导入的函数如果可能的话。

有没有办法阅读 UTF-8文件为 IO String所以我可以重复使用我的 Ref的功能？我应该对我的代码进行哪些修改？提前致谢。

我附上了我的 Ref 中的函数声明模块:

unlist :: [String] -> String
proc :: [String] -> [String]

从前奏:

lines :: String -> [String]

Answer 1

这可以通过 GHC 的基本(但从标准扩展)来完成 System.IO模块，尽管您必须使用更多功能:

module Main where

import Ref
import System.IO

main = do
    text <- getLine
    inputHandle <- openFile text ReadMode 
    hSetEncoding inputHandle utf8
    theInput <- hGetContents inputHandle
    outputHandle <- openFile ("a"++text) WriteMode
    hSetEncoding outputHandle utf8
    hPutStr outputHandle (unlist . proc . lines $ theInput)
    hClose outputHandle -- I guess this one is optional in this case.