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将其删除。