Продолжаю попытки чистить код и доводить его до питоноподобного, хоть и получается, но приходится наёбывать типизацию при помощи использования `undefined`. https://github.com/scotty-web/scotty/issues/134 Помощь приветствуется.

Снова меня монады победили :( уже час с ними мучаюсь. Пойду запилю вопросом на StackOverflow.

Мучаешься-мучаешься Мучаешься-мучаешься Оказывается вместо lens-aeson у тебя aeson-lens, поэтому примеры не работают

Улучшил, блять ``` -- case res of -- Left s -> putStrLn (fromText s) -- Right rsp -> getResponseBody rsp >>= \r -> putStrLn (toString r) res & ((either (return . fromText) (getResponseBody >=> return . toString)) >=> putStrLn) ```

Привидение типов