stanislav-az / echo-bot Goto Github PK

По бизнес логике у тебя есть куча мест, которые можно сделать обобщенными в полиморфных функциях: отправка в ответ сообщения входящего, обработка команды про количество повторов и тд. А в методы специфичные для каждого вида бота стараться минимум кода выносить, чтобы легко было новые типы ботов добавлять, и текущие менять. В идеале бизнес логику вообще можно было бы поменять в одном месте, и это бы распространилось сразу на всех ботов :)

https://github.com/stanislav-az/echo-bot/blob/master/src/Bot/BotClass.hs#L69

На мой субъективный вхгляд неудобное имя: я его видел в коде но не понимал что оно значит: давай назовем как нибудь типа - BotStaticOptions, просто Const совсем не раскрывает семантики, когда я вижу эт ов коде в других местах )

У тебя же только в слаке есть эта особенность. Там проще сделать тогда только для слака ADT по типу

data SlackMessage = PlainMessage T.Text | Reaction T.Text

Надо из типа EchoBot все по максимуму выпилиывать, а то сейчас он оооочень монструозный получился :) И оставлять все по-максимуму обобщенное, чтобы в дальнейшем новый вид мессенджера было легко подключить

Ну или сделать два метода, sAcquireReactions как сейчас и sAcquireLastReactions уже который сам вызывает sGetRepeatTimestamp >>= maybe (pure []) sAcquireReactions

Лучше такие служебные имена не давать :)
Тут у тебя есть общий метод по процессингу сообщения и несколько частных, это лучше и отразить в названиях. caseMsg станет processMsg, а processMsg станет processPlainMessage, например

Нашел такой код throwParseException unparsedReactions >> pure emptySPostResponse — однако как после throwParseException можно что-то дальше возвращать? :) Там будет дальше выполнение программы идти? :)

Тяжело разобраться с тем, что такое параметр iter у EchoBot, что такое iteratorTransformation и как им пользоваться, типы и примеры испольщования не особо помогли, даже когда в реализацию sIteratorTransformation для слака залез, не очень помогло :)

Можешь тут вкратце объяснить скрытый смысл за этой темой, я думаю, что мы можем вместе гораздо более понятную и очевидную абстракцию придумать :)

https://github.com/stanislav-az/echo-bot/blob/master/src/Bot/BotClass.hs#L69

Абстрагируйся от того факта, что используешь стейт для этого функционала, спроектируй апиху для сторейджа данных, которые надо хранить, как-будто это абстрактный сторедж типа MonadBotStorage, и соответственно подрефактори функции там :) В идеале чтоб вдруг при желании при написании нового кода для других стореджей можно было и файл использовать, и базу и так далее)

Например, textify лучше определить в модуле Ext.Data.Text и тд :)

Сейчас тайпклассы HasTelegramEnv и HasSlackEnv имеют по куче методов каждый, хотя можно было просто по одному методу сделать getTelegramEnv и getSlackEnv соотвественно и все :) А остальыне функции можно выводить, например. Как в примере статьи про ReaderT тайклассы HasLog и HasBalance имеют самые примитивные методы :)

Там можно отдельно с помощью функции maybe сконструировать аргумент для simpleQueryToQuery, а остальное будет общим кодом для всех случаев.

let arg = maybe ("limit", "1") (("oldest", ) . B8.pack) timestamp
HTTP.setRequestQueryString
        (Q.simpleQueryToQuery $ arg : address)
        req

почти весь код повторяется сейчас, это прямо по-любому надо выносить.

В идеале так весь проект проверить, чтобы подобного было как можно меньше :)

Текст сообщений дублируется, и по сути он относится к бизнес логике. Можно его вынести и менять только саму команду (в конец ее аппендить например)

BotClass.hs:

Также енвы в BotMonad.hs

надо вынести их в свои модули:)