无法生成monad变换器的派生实例

Question

我有以下newtype：

{-# LANGUAGE GeneralizedNewtypeDeriving #-}

newtype Wrap m a = Wrap {runWrap :: m a}
  deriving (Functor, Applicative, Monad, MonadTrans)

我正在尝试自动派生MonadTrans，但我收到以下错误：

• Can't make a derived instance of ‘MonadTrans Wrap’
    (even with cunning GeneralizedNewtypeDeriving):
    cannot eta-reduce the representation type enough
• In the newtype declaration for ‘Wrap’

然而，为MonadTrans编写简单的实例效果很好：

instance MonadTrans Wrap where
  lift = Wrap

出现此类错误消息的原因是什么？

Answer 1

GeneralizedNewtypeDeriving使用类的基础实例来实现newtype的类。但是，在这种情况下没有任何意义，因为m甚至不是MonadTrans的一个实例（回想一下m :: * -> *，但是MonadTrans想要(* -> *) -> * -> *）。