Требует установить tdjson. Все сторонние билиотеки, которые не ставятся автоматически, когда запускаешь stack build нужно указать в Readme, чтобы упростить и ускорить поднятие проекта. Если это возможно указать ссылку на то, как установить сторонний пакет или команду для установки.

То есть, сделать монаду в функциях основной логики полиморфнойю Это позволит тестировать функции, подменяя настоящие данные моковыми.

Тут мне не понятно что происходит,

Написан инстанс для Title, значит parseJson должен принимать уже сам объект title, ну или строку title, а там еще другие поля откуда-то. Или там в json и есть объект Title, у которого описаны поля data, post, title?

По всем инстансам ниже тот же вопрос. Было бы круто, если бы ты прикрепил к тому ишью пример json-а, который будет парситься с помощью этих инстансов

Лучше не использовать такие названия, потому что они могут запутать. Например на какое-то время можно зависнуть , встретив где-то в коде и подумав что это State монада. Плюс недостаточно инфы, например чей стэйт или для чего стэйт. Ну и в итоге не понятно что именно описывают рекорды:

например currentExtra что такое и зачем? И кстати, много где встречается название extra, может его как-то можно переименовать, чтобы было понятней, что это такое:)

В задании по карте обучения не случайно требуется сделать 2 бота: мы хотели чтобы стажеры научились применять знания по полиморфизму, написав общие функции для взаимодействия с разными ботами. Тут и архитектуру понадобится спроектировать, что тоже учитывается в стажерском задании.

Никакие значения не нужно харкодить, это усложняет поиск ошибок и в случае если мы захотим поменять значения нужно будет лезть в код.

• Если значение константное, можно сделать файл с константами и складывать туда;
• Если это настройка, надо сделать файлы конфигурации и читать значения оттуда (можно использовать Data.Configurator или Aeson для парсинга файла конфигурации)

Токен через getLine вводить это жестко. Лучше один раз написать его в файл конфига и всегда читать оттуда.

Пример хардкода:

send c CheckDatabaseEncryptionKey { encryption_key = Just "randomencryption" }

для тестов используем Hspec: https://hackage.haskell.org/package/hspec-2.7.1/docs/Test-Hspec.html

пример тестов: https://hspec.github.io/

Тут если будут вопросы про написание тестов, сможем вернуться к ним после исправления ишью: #8

Такой код тяжелее читать:

Вот такое вопринимается гораздо быстрее:

mainLoop :: Client -> State -> Logger -> IO ()
mainLoop client state logger = do
      response <- receive client
     ....

Нэйминг надо поправить по всему проекту.

Оставить там только функцию main, остальное раскидать смыслу по разным модулям, например так:

Тип State и функция emptyState должны лежать в одном файле, по сути это модель (1 доменный объект), и функция, работающая с ней.

Хэндлеры тоже разбросать по файлам, например сделать директорию Handlers и сложить их туда.

Функции, которые общаются с апи мессенджера, тоже разнести по файлам и в отдельную директорию.

И тд. в том же ключе.