Haskell中的参数hGetContents无效

Question

我正在尝试对整数列表进行排序并打印出来，但是我收到了这个例外：

Exception: <stdin>: hGetContents: invalid argument (Bad file descriptor)

该计划：

import Data.List

main :: IO ()
main = do
    interact maxTri
    putStrLn ""

readInt :: String -> Int
readInt = read

maxTri :: String -> String
maxTri = show .
    sort .
    map readInt .
    words

Answer 1

interact（半）关闭输入流。如果你在ghci，这期望继续使用输入流，这不会很好。

使用

编译并运行程序

ghc path.hs
path

并且不应出现此问题。