From fd0e567f4a01f7aca99e21e1f25ff0f553e5c225 Mon Sep 17 00:00:00 2001 From: Alexey Khudyakov Date: Wed, 16 Dec 2020 20:12:22 +0300 Subject: [PATCH] Derive MonadTrans for UTXOT --- hschain-utxo-pow-node/src/Hschain/Utxo/Pow/App.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/hschain-utxo-pow-node/src/Hschain/Utxo/Pow/App.hs b/hschain-utxo-pow-node/src/Hschain/Utxo/Pow/App.hs index 83837561..6cdacf76 100644 --- 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)