http://iamjaph.livejournal.com/ ([identity profile] iamjaph.livejournal.com) wrote in [personal profile] iamjaph 2016-09-30 12:06 pm (UTC)

Нашел.
Изменил ответ cmdType с
cmdType :: ByteString -> Maybe CmdType
на
cmdType :: ByteString -> Maybe Integer
И скорость вернулась на свои места.

Получается из-за типа данных.
data CmdType = CmdToAll | CmdToOne | CmdToMany | CmdToManyValues | CmdToManyTimeout

Но почему же?

Post a comment in response:

This account has disabled anonymous posting.
If you don't have an account you can create one now.
HTML doesn't work in the subject.
More info about formatting