Мне пришлось использовать пользовательское промежуточное ПО Wai для записи заголовков файлов cookie в запросах.Wai Middleware - Application -> Application
.Подробности представлены ниже на случай, если кто-то найдет это полезным.
logRequestHeaders :: Application -> Application
logRequestHeaders incoming request outgoing = do
let headerList = requestHeaders request
liftIO $ mapM_ print headerList
incoming request outgoing