要将ByteString解码为Value，可以使用aeson库。以下是一个使用aeson的代码示例：

首先，确保已经将aeson库添加到您的项目中。您可以在cabal文件中添加以下行来引入aeson库：

build-depends: aeson

然后，您可以使用aeson的decode函数将ByteString解码为Value。请参考以下示例代码：

import Data.Aeson
import qualified Data.ByteString.Lazy as B

decodeByteString :: B.ByteString -> Maybe Value
decodeByteString byteString = decode byteString

main :: IO ()
main = do
  let jsonString = "{\"name\":\"John\",\"age\":30}"
  let byteString = B.pack jsonString
  let maybeValue = decodeByteString byteString
  case maybeValue of
    Just value -> print value
    Nothing -> putStrLn "Failed to decode ByteString"

在上面的代码中，我们首先定义了一个名为decodeByteString的辅助函数，它接受一个ByteString作为参数，并返回一个Maybe Value。我们使用aeson的decode函数将ByteString解码为Value，并将结果封装在Maybe中。如果解码成功，我们打印出解码后的Value；如果解码失败，我们打印出错误信息。

在main函数中，我们创建了一个示例的JSON字符串，并将其打包为ByteString。然后，我们调用decodeByteString函数来解码ByteString，并根据结果打印相应的信息。

请注意，上述代码中的ByteString类型为Data.ByteString.Lazy.ByteString，这是aeson库中用于处理大型数据的一种懒加载的字节字符串类型。如果您的ByteString类型为Data.ByteString.ByteString，则可以使用decodeStrict函数来进行解码。

希望这可以帮助到您！