байтовой строки ожидает разные байтовой строки

Question

Этот код не typecheck:

import Network.HTTP.Conduit 
import qualified Data.ByteString.Char8 as BS 

main :: IO() 
main = do 
    resp <- simpleHttp "http://www.google.com" 
    putStrLn $ BS.unpack resp 

Выдает следующую ошибку:

Couldn't match expected type `BS.ByteString' 
      with actual type `Data.ByteString.Lazy.Internal.ByteString' 
In the first argument of `BS.unpack', namely `resp' 
In the second argument of `($)', namely `BS.unpack resp' 
In a stmt of a 'do' block: putStrLn $ BS.unpack resp 
Failed, modules loaded: none. 

Как это исправить? Переход на другой вариант ByteString не работает.

Тип simpleHttp Функция такова: simpleHttp :: Control.Monad.IO.Class.MonadIO m => String -> m Data.ByteString.Lazy.Internal.ByteString. Поэтому я пытаюсь получить ByteString в монаде IO и попробую unpack, но это приводит к ошибке.

Answer 1

Существует два отдельных модуля ByteString, один для ленивых байтов и один для строгих байтов. simpleHTTP возвращает lazy bytestring, но вы импортировали строгий модуль bytestring, поэтому распаковка ожидает строгой байтовой строки.

Попробуйте изменить

import qualified Data.ByteString.Char8 as BS 

в

import qualified Data.ByteString.Lazy.Char8 as BS 

---

Тем не менее, вы должны быть осторожны, если вы используете версию Char8 из байтовой строки модулей, так как струна < -> байтовой строки конверсии работают, только если вы используете кодировку ASCII. Я бы порекомендовал converting your bytestrings to Text с соответствующей функцией кодирования, а затем распечатал это.