如何在Haskell中处理无限的IO对象列表？

cabal install iteratee

import Data.Iteratee
import Data.Iteratee.IO
import System.IO

-- 定义一个函数，用于处理IO对象列表
processList :: Iteratee IO [Int]
processList = do
  -- 读取一个整数
  x <- headStream
  -- 如果读取到EOF，则返回空列表
  if isEOF x
    then return []
    else do
      -- 将读取到的整数添加到列表中
      xs <- processList
      return (x : xs)

-- 打开一个文件，并将其作为IO对象列表处理
main :: IO ()
main = do
  file <- openFile "numbers.txt" ReadMode
  result <- enumFile file $$ processList
  print result