YS
в консоль
Size: a a a
2020 May 10
YS
там сложно) он приходит как lazy bytestring из тела, потом его в строгий байтстринг, потом в текст перегоняю
YS
У меня два аппликейшена, один чистый ваи (там аутентификация), и второй - сервант (после аппки с ваи, когда тебе выдан токен, дальше уже идёшь по серванту)
YS
ваи
YS
reqBody <- strictRequestBody req
let maybeAuthLogin = decodeStrict $ toStrict reqBody
case maybeAuthLogin of
Nothing ->
respond $ responseBadRequest $
makeJsonApiErrorB "can't parse username and password"
Just AuthLogin {..} -> do ...YS
data AuthLogin
= AuthLogin
{ authUsername :: Text,
authPassword :: Text,
authRole :: Text
}
deriving (Eq, Show, Read, Generic)
YS
В общем, когда я не нахожу юзера в базе, и хотел написать в консоль, что такой юзер на найден, что (который
authUsername), то вот там и валилосьYS
strictRequestBody что в себе содержит?
{"username":"test-customer", "password":"12345", "role":"customer"}
Что-то типа такогоR
Не знаю зачем они людям
Если тебе неважно, какой из двух инстансов выстрелит, и хочется, чтобы просто тайпчекалось
AV
Звучит не очень
YS
попробуй eitherDecode и выведи, что в ошибке приходит
Декодит то нормально
YS
Он не на декодинге падает