AV
Могу в приницпе и прислать в какой-то момент
- token <- Handler $ lookupInput "token" m !!? err403
+ token <- Handler $ withExceptT (const err403) $ except $ lookupInput "token" mудобно
Size: a a a
2020 November 30
AV
удобно
к
В общем имхо базовая функция с maybe и обёртка с either было бы получше
выглядит как-то невозможное
AV
Нет
AV
Left в String в either вообще не несёт смысла
AV
lookupInput x m = fromMaybe x (lookupInputInternal x m)
могу поспорить
могу поспорить
AV
lookupInput
iname =
maybe (Left $ "Field " <> cs iname <> " not found") (Right . iValue)
. find ((==iname) . iName)
. inputsAV
Угадал
AV
вот сделать
lookupInput iname = find ((==iname).iName) . inputs как базовый и вариант с красивой ошибкой как either как обёртку - нормальноAV
если бы были разные типы ошибок, то тогда Either базовый это нормально, но именно
Either LookupErrorAV
И какая-то обёртка делающая из этого текст
AV
/me понятно почему меня не любят, пришёл в канал наругался и патчей не прислал 🙁
MK
Можно в 0.19 успеть, наверное
AV
Ну видимо имеет смысл уже не менять поведение lookupInput, а что-то новое ввести?
AV
А то оно раз в версию будет менять тип, что может людей выбесить
MK
А то оно раз в версию будет менять тип, что может людей выбесить
Ага
MK
Так ты сделай себе fromRight и будет снова мейби)
AV
СПАСИБО
AV
А потом кто-нить сделает
maybe (Left "not found")) (Right.)