DB
Size: a a a
DB
KV
к
Async a вместо a и сделал тайпкласс MonadAsync m с методом wait :: Async a -> m aDB
DB
DB
YS
DB
YS
YS
KV
DB
newtype Application a = Application { runApplication :: ReaderT Config (LoggerT 'Timed () (SqlT IO)) a }
deriving (Functor, Applicative, Monad)к
DB
KV
YS
newtype Application a = Application { runApplication :: ReaderT Config (LoggerT 'Timed () (SqlT IO)) a }
deriving (Functor, Applicative, Monad)DB