Принудительная оценка lazy IO

Question

Моя программа считывает строку из сетевого сокета и записывает его на диск. Поскольку строки могут быть очень длинными, а строки имеют ужасную производительность, я начал использовать ленивые строки байтов. Теперь, похоже, что Haskell будет пройти hClose на диск дескрипторе файла фактически не топить все байты строку на диск, таким образом:

• открыть файл для записи
• записи байт строки в файл с hPut
• закрыть файл
• открыть файл для чтения

обычно приводит к openFile: resource busy (file is locked).

Возможно ли выполнить проверку и дождаться записи всей строки байта перед закрытием файла, поэтому я могу быть уверен, что файл фактически закрыт после этой операции?

Answer 1

Поскольку единственный ответ на вопрос «использовать что-то еще», я отправляю свое собственное решение. С помощью этой функции после hClose будет висеть нить до тех пор, пока не будет выполнена ленивая запись.

waitForLazyIO location = do 
    t <- liftIO $ try $ openFile location AppendMode 
    handle t 
    where 
     handle (Right v) = hClose v 
     handle (Left e) 
      -- Add some sleep if you expect the write operation to be slow. 
      | isAlreadyInUseError e = waitForLazyIO location 
      | otherwise = throwError $ show e 

Answer 2

Попробуйте использовать строгие i/o со строчными байтовыми строками вместо ленивых i/o и ленивых строк байтов.

Если это окажется слишком неэффективным, попробуйте использовать conduit или аналогичный пакет.