如何在Haskell中并行延迟读取来自stdin的信息？

import Control.Parallel.Strategies (using, parList, rdeepseq)
import System.IO

readInput :: IO [String]
readInput = do
    eof <- isEOF
    if eof
        then return []
        else do
            line <- getLine
            rest <- readInput
            return (line : rest)

main :: IO ()
main = do
    hSetBuffering stdin LineBuffering
    input <- readInput
    let processedInput = input `using` parList rdeepseq
    -- 在这里对读取到的信息进行处理
    putStrLn "处理完成！"