Andy Melnikov (nponeccop) wrote,
Andy Melnikov
nponeccop

Categories:

Дно двунаправленности пробито

import System.IO.Streams (contramap)
quux x = do
   foo <- contramap show x
   bar <- contramap Just foo
   return bar
Все мы помним State-монаду, в которой состояние движется в другую сторону и взбирается по ду-нотации вверх. Сегодня я столкнулся с продвижением контрол-флоу против стрелок обычной монады IO.

Т.е. у нас "вход" как бы снизу, а x - это "выход". return bar отправляет этот вход в bar, дальше он проходит Just и отправляется в foo, а оттуда проходит через show и попадает в x

Тип соответствующий:
quux :: Show a => OutputStream String -> IO (OutputStream a)
a "на входе", затем Just делает Maybe a, и show делает строку.
Tags: fp, haskell, до чего техника дошла, юмор
Subscribe

  • Бажок в Bluetooth PAN

    Нашёл тут два бажка в венде.. 1. Запускаете таск менеджер 2. Включаете в iOS hotspot (на ведроиде вроде называется Bluetooth Tethering) 3.…

  • Тайп-фу в TS

    У нас тут есть сторонний HTTP-сервис, возвращающий либо { success: true } либо { error: 42, description: "because" }. Ну и по openapi.yaml генерится…

  • Винда и 4гб

    Тут или крестик или трусы. Если у вас винда - то должно быть 6+ рамы. На 4-х WebStorm неюзабельный. С другой стороны, в 2021 4 гб на разрабской…

  • Post a new comment

    Error

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

    When you submit the form an invisible reCAPTCHA check will be performed.
    You must follow the Privacy Policy and Google Terms of use.
  • 5 comments