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 не отключают их.