DB
Size: a a a
DB
KV
к
Async
a вместо a
и сделал тайпкласс MonadAsync m
с методом wait :: Async a -> m a
DB
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