Как мне реализовать команду выключения на сервере WAI?

Я хотел бы реализовать команду «плавного выключения» для своего веб-приложения (в отличие от моего первого инстинкта, который заключался в том, чтобы просто попросить людей убить процесс)

Мои первые две попытки состояли из

1. liftIO exitSuccess
2. E.yield (responseLBS statusOK [G.contentType "text / plain"] "") E.EOF

Обе из них просто весело вернули результат в клиент и продолжил слушать. Может ли приложение что-нибудь сделать, чтобы убить сервер? Разве это вообще разумная вещь?

Признаюсь, я не очень хорошо разбираюсь в iteratee, достаточно только для того, чтобы знать, что я могу потреблять свой ввод и что Iteratee является экземпляром MonadIO.