haskell - 如何为 Haskell 记录自定义 Show 实例？

Question

我有一个如下所示的 Haskell 记录数据类型:

data Client = Client { clientId :: Int
                     , nickname :: Text
                     , clientSink :: Maybe (WS.Sink WS.Hybi00)
                     , clientRoom :: Maybe Room
                     }

由于 WS.Sink 没有 Show 实例，我无法从中派生 Show 实例。

如何创建一个仅排除 clientSink 字段的 Show 实例，但像普通记录一样打印其余记录字段？

我应该为 WS.Sink 创建一个自定义 Show 实例吗？

Answer 1

为 WS.Sink 添加一个 Show 实例

instance Show WS.Sink where show a = "Sink"

或您想要的任何虚拟值。