Haskell, Aeson之(ToJSON ByteString) 没有实例

很高兴能走到这一步，遇到了一个新的障碍:
将此代码编码为 JSON。但是，无论我何时使用类型作为实例，编译器都会提示。现在我显然做错了，但这正是文档中的内容(显然使用 DeriveGeneric 时)。

{-# LANGUAGE OverloadedStrings, DeriveGeneric #-} 
 
import Data.Aeson 
import Data.Text as T 
import Data.ByteString.Lazy as B 
import Data.ByteString.Lazy.Char8 as BC 
import GHC.Generics 
 
-- decode :: FromJSON a => B.ByteString -> Maybe a 
-- decode' :: FromJSON a => B.ByteString -> Either String a 
-- encode :: ToJSON => a -> B.ByteString 
 
data System = System  { system :: BC.ByteString 
                  , make :: BC.ByteString 
                  , code :: Int 
                  } deriving (Generic, Show) 
instance ToJSON System 
-- instance FromJSON System 
 
platform = System { system = "FPGA" 
                  , make = "Xilinx" 
                  , code = 10165 
                  } 
encodePlatform :: BC.ByteString 
encodePlatform = encode platform 

    • No instance for (ToJSON ByteString) 
        arising from a use of ‘aeson-1.4.1.0:Data.Aeson.Types.ToJSON.$dmtoJSON’ 
    • In the expression: 
        aeson-1.4.1.0:Data.Aeson.Types.ToJSON.$dmtoJSON @(System) 
      In an equation for ‘toJSON’: 
          toJSON = aeson-1.4.1.0:Data.Aeson.Types.ToJSON.$dmtoJSON @(System) 
      In the instance declaration for ‘ToJSON System’ 
   | 
17 | instance ToJSON System 

请您参考如下方法:

那是因为没有ByteString ToJSON 的实例类型类。从历史上看，它曾经存在，但由于 JSON 字符串应该是有效的 unicode 而被删除。

您可以在此处找到更多详细信息: