针对特定实例的使用发出警告

Question

我创建了一个类型类的实例：

data Foo = Foo

instance Show Foo where
  show _ = "Foo"

现在这是库的一部分，如果库的用户使用此实例，我想发出警告。我已经尝试过各种方法，WARNING但无法正常工作。