Derive MonadTrans for UTXOT

hexresearch · Dec 18, 2020 · fd0e567 · fd0e567
1 parent 76c0167
commit fd0e567
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/hschain-utxo-pow-node/src/Hschain/Utxo/Pow/App.hs b/hschain-utxo-pow-node/src/Hschain/Utxo/Pow/App.hs
@@ -99,6 +99,7 @@ newtype UTXOT m a = UTXOT (ReaderT UTXOEnv m a)
                    , MonadCatch, MonadThrow, MonadMask, MonadFork, MonadReader UTXOEnv)
   deriving (MonadLogger)          via LoggerByTypes  (ReaderT UTXOEnv m)
   deriving (MonadDB, MonadReadDB) via DatabaseByType (ReaderT UTXOEnv m)
+  deriving (MonadTrans)           via ReaderT UTXOEnv
 
 runUTXOT :: LogEnv -> Connection 'RW -> UTXOT m a -> m a
 runUTXOT logenv conn (UTXOT act) = runReaderT act (UTXOEnv logenv mempty conn)