#gachi #гачи

Плейлист с моими треками: https://vk.com/music/album/103095219_1
Поддержать рублём: https://www.donationalerts.com/r/zerodovich

Благодарю Zuskel за помощь при создании картинки.

---------------------------------------------------------------------------

Валим, валим, валим, валим на ♂g4y party♂
Гелендваген-ваген ♂oh i'm f*cking c*mming♂
Серьёзные ребята ♂f1sting f*cking slaves♂
Подруга садись рядом, ♂stick finger in my 4ss♂
Валим, валим, валим, валим на ♂g4y party♂
Гелендваген-ваген ♂oh i'm f*cking c*mming♂
Серьёзные ребята ♂f1sting f*cking slaves♂
Подруга садись рядом, ♂stick finger in my 4ss♂

Чёрный ♂d1ck♂, оу, матовый
♂The s3men♂ блеск, оу, по кругу ♂f*cking slaves♂
Уверенно ♂just lube it up♂ и на всех рыча
Двойную ♂4ss♂ ♂i rip the skin♂ нечаянно с горяча
Разноширокие двадцать вторые ♂hot loads♂
Возбуждение ♂my 4ss♂, в восторге ♂f*cking slaves♂
В восторге ♂boy next door♂, и даже ♂dungeon master♂
Устроим вам ♂g4y party♂, садитесь ♂f*cking c*mming♂
Скользя по асфальту и выпуская ♂s3men♂
В багажнике…

Есть эффект для приложения, есть вложенный эффект для базы данных:
type E[A] = Kleisli[IO, AppContext, A]
type DB[A] = Kleisli[E, Connection, A]
К эффекту для приложения есть инстанс Context[IO, AppContext]. Как из него получить Context[DB, AppContext]?
Конечно, можно сделать в лоб
val ask: DB[AppContext] = Kleisli.ask[E, Connection].flatMapF(_ => Kleisli.ask[IO, AppContext])
Но есть ли более удобный способ?