Haskell程序内设置区域以正确输出Unicode字符的方法

问题核心：Haskell程序启动时会根据环境变量的locale初始化标准IO流的编码，后续调用setLocale仅修改进程locale，不会同步更新已打开的IO流编码，导致Unicode字符输出失败。

以下是两种可行的程序内解决方法：

方法一：直接设置标准输出编码为UTF-8 #

无需依赖额外库，直接通过System.IO模块修改stdout的编码：

module Main where

import System.IO

main :: IO ()
main = do
  -- 显式将stdout编码设置为UTF-8
  hSetEncoding stdout utf8
  putStrLn "█"

方法二：结合setLocale与IO编码设置 #

如果需要同时修改进程locale，可在调用setLocale后同步更新IO编码：

module Main where

import System.Locale.SetLocale
import System.IO

main :: IO ()
main = do
  -- 设置进程全局locale为C.UTF-8
  _ <- setLocale LC_ALL (Just "C.UTF-8")
  -- 同步更新全局locale编码（或单独设置stdout编码）
  setLocaleEncoding utf8
  putStrLn "█"

为什么之前的代码无效？ #

Haskell运行时在程序启动阶段就会读取环境变量中的LANG/LC_*配置，初始化标准输入、输出、错误流的编码。setLocale函数仅修改进程的locale设置，但不会触发已打开IO流的编码重新初始化，所以必须手动调用hSetEncoding或setLocaleEncoding来更新编码配置，才能让后续的输出使用UTF-8编码。

内容的提问来源于stack exchange，提问作者Enlico