haskell putStr 输出额外的换行符

Question

main = do
       file_name <- getLine
       text <- readFile file_name
       let b = prepare $ line text
       let x = sth b
       mapM_ (putStr . print_matrix . fst ) x

当我运行这段代码时，我得到：

1 2 3

4 5 6

7 8 9

9 2 1

1 1 1

1 1 1

但是在随机行中我得到了额外的换行符。当我写 300 行时，我得到了 2 个额外的随机换行符。

9 2 1

（额外输入）

1 1 1

1 1 1

Answer 1

我很确定 putStr 正在打印从文件中读取的换行符，除非 prepare 或 sth 正在将它们删除。