Haskell中hGetContents无法读取外部程序写入文件数据问题

通过openFile打开文件句柄，使用ByteString.hPutStrLn向文件写入数据，随后调用外部编辑器打开对应文件。通过hSeek将文件句柄重新定位到文件起始位置，期望读回外部编辑器对文件做出的修改，但始终无法读取到外部编辑器写入的变更，复现代码如下：

module Main where

import System.Process
import System.IO
import qualified Data.ByteString.Char8 as BS

main :: IO ()
main = do
  handle <- openFile "myfile" ReadWriteMode
  BS.hPutStrLn handle . BS.pack $ "hello"
  hFlush handle
  callProcess "vi" ["myfile"]
  hSeek handle AbsoluteSeek 0
  str' <- BS.hGetContents handle
  BS.putStr str'

实际运行时，无论在vi中对文件做出何种修改，程序终端始终仅输出hello，但直接查看目标文件时，外部编辑器做出的修改确实已经落盘保存。

核心原因是vi等绝大多数文本编辑器的默认保存逻辑，并非在原文件的存储位置直接覆写内容：

• 编辑器先将修改后的内容写入同目录下的临时文件
• 删除原路径对应的旧文件
• 将临时文件重命名为原文件名，完成保存

初始openFile返回的文件句柄，和打开时旧文件的inode（文件存储层唯一标识）绑定。编辑器完成替换操作后，原文件路径已经指向全新inode对应的新文件，但持有的旧句柄依然关联已经被移除的旧文件，自然无法读取新文件的内容。
除此之外，ByteString.hGetContents是惰性IO实现，会缓存首次打开文件时获取的文件长度等元数据，仅通过hSeek重置读写偏移不会刷新这些缓存，即便编辑器配置为直接覆写原文件，也会出现无法读取新增内容的问题。

最稳妥、兼容性最好的处理方式是不要在调用外部编辑器期间持有文件句柄，流程调整为：

• 写入文件初始内容后，立即刷新缓冲区并关闭文件句柄
• 启动外部编辑器进程，等待进程退出（确认用户完成编辑、文件已保存）
• 重新通过文件路径打开文件，读取最新内容

修正后的可运行代码如下：

module Main where

import System.Process
import System.IO
import qualified Data.ByteString.Char8 as BS

main :: IO ()
main = do
  -- 写入初始内容后关闭句柄
  handle <- openFile "myfile" ReadWriteMode
  BS.hPutStrLn handle . BS.pack $ "hello"
  hFlush handle
  hClose handle
  -- 调用外部编辑器，等待编辑完成
  callProcess "vi" ["myfile"]
  -- 重新打开文件读取最新内容
  readHandle <- openFile "myfile" ReadMode
  str' <- BS.hGetContents readHandle
  BS.putStr str'
  hClose readHandle

不推荐尝试通过持有旧句柄、刷新元数据的方式实现需求：不同编辑器的保存逻辑差异极大，除了vi的临时文件替换逻辑，还有部分编辑器会做硬链接备份、权限位修改等操作，持有旧句柄的方式无法覆盖所有场景，极易出现兼容性问题。

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