В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Haskell

1454 membersпожаловаться на группу
2020 May 29

YS

Yan Shkurinskiy in Haskell
из Handler в свою)
источник
23:39пожаловаться#1

AV

Alexander Vershilov in Haskell
у меня ьыл хоистсервер делающий IO
источник
23:39пожаловаться#2

MK

Maxim Koltsov in Haskell
Yan Shkurinskiy
из Handler в свою)
может наоборот?
источник
23:39пожаловаться#3

YS

Yan Shkurinskiy in Haskell
точно
источник
23:39пожаловаться#4

AV

Alexander Vershilov in Haskell
Но потом я забил на это
источник
23:40пожаловаться#5

MK

Maxim Koltsov in Haskell
Alexander Vershilov
у меня ьыл хоистсервер делающий IO
hoistServer liftIO ? )
источник
23:40пожаловаться#6

AV

Alexander Vershilov in Haskell
Ну + работа и исключениями
источник
23:40пожаловаться#7

AV

Alexander Vershilov in Haskell
так что try + немного обработки
источник
23:40пожаловаться#8

MK

Maxim Koltsov in Haskell
а, ты их кетчишь и в сервантеррор кладёшь?
источник
23:40пожаловаться#9

MK

Maxim Koltsov in Haskell
интересно
источник
23:40пожаловаться#10

AV

Alexander Vershilov in Haskell
Да
источник
23:40пожаловаться#11

MK

Maxim Koltsov in Haskell
я только логирую уже в хендлере варпа
источник
23:41пожаловаться#12

AV

Alexander Vershilov in Haskell
Но потом я стал делать middleware
источник
23:41пожаловаться#13

AV

Alexander Vershilov in Haskell
try (next req resp) >>= \case
  Left s -> case s of
    ServantException e -> do
      when (errHTTPCode e > 404 && errHTTPCode e /= 407) $
        liftIO $ logErr lenv $ "Servant exception: " <> showLS e
      resp $ responseServerError e
   ...
источник
23:41пожаловаться#14

MK

Maxim Koltsov in Haskell
где-то я это уже видел...
источник
23:42пожаловаться#15

AV

Alexander Vershilov in Haskell
Там разбираются известные исключения пишется соответсвующий лог и они заворачиваются в responseServerError
источник
23:42пожаловаться#16

AV

Alexander Vershilov in Haskell
Где?
источник
23:42пожаловаться#17

MK

Maxim Koltsov in Haskell
http://hackage.haskell.org/package/servant-errors
Hackage
servant-errors: Servant Errors wai-middlware
Install via `cabal install servant-errors`.
источник
23:42пожаловаться#18

MK

Maxim Koltsov in Haskell
я как раз тут днём ругался на эти костыли
источник
23:42пожаловаться#19

MK

Maxim Koltsov in Haskell
поэтому и хочу наконец пропихнуть в основной сервант НОРМАЛЬНОЕ
источник
23:42пожаловаться#20