ByteStrings和Strings

Question

如何解决以下问题：

import Data.ByteString.Lazy as BS  (readFile, ByteString, unpack, fromStrict)
import Data.ByteString.Char8 as C8 (pack)
import Data.ByteString.UTF8        (toString)
import Data.Char                   (chr)

stringToBS :: String -> BS.ByteString
stringToBS str = BS.fromStrict $ C8.pack str

recode :: String -> String
recode str = toString $ urlDecode True (stringToBS str)

注意，，我需要让它们与我已经设置的类型相同。

编译错误：

Couldn't match expected type ‘Data.ByteString.Internal.ByteString’
            with actual type ‘ByteString’
NB: ‘Data.ByteString.Internal.ByteString’
      is defined in ‘Data.ByteString.Internal’
    ‘ByteString’ is defined in ‘Data.ByteString.Lazy.Internal’
In the second argument of ‘urlDecode’, namely ‘(stringToBS str)’
In the second argument of ‘($)’, namely
  ‘urlDecode True (stringToBS str)’

我怎样才能解决这个错误？

Answer 1

我无法在黑客中找到适合您使用的urlDecode，因此我无法确定……但它可能需要严格的ByteString而不是懒惰的ByteString，在这种情况下，下面的内容应该可以工作。

import Data.ByteString as BS  (readFile, ByteString, unpack)
import Data.ByteString.Char8 as C8 (pack)
import Data.ByteString.UTF8        (toString)
import Data.Char                   (chr)

recode :: String -> String
recode str = toString $ urlDecode True (C8.pack str)