deriving-trans-0.7.0.0: src/Control/Monad/Accum/OrphanInstances.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}

module Control.Monad.Accum.OrphanInstances where

import Control.Monad.Accum
import Control.Monad.Trans.Accum qualified as T

instance (Monoid w, Monad m) => MonadAccum w (T.AccumT w m) where
  look = T.look
  add = T.add