especificando favicon de manera segura en yesod

Question

Esta es una re-post de mi pregunta original que hice en la lista de correo de Yesod (consulte http://groups.google.com/group/yesodweb/browse_thread/thread/934c4141fc615cb) en un intento de obtener una respuesta más rápida.

Estoy tratando de averiguar si es posible generar un <link> con el type Atributo que corresponde al tipo MIME enviado por el controlador HTTP que sirve al archivo Favicon.

Hasta ahora tengo este enlace:

<link rel="icon" href=@{FaviconR} sizes="32x32" type="image/png">

Y este manejador:

getFaviconR :: Handler ()
getFaviconR = sendFile "image/png" "config/favicon.png"

Estoy buscando una manera de asegurarme de que el código se compile solo si getFaviconR y <link> tener el mismo tipo de mime.

Me doy cuenta, por supuesto que puedo omitir type Atribuir desde el enlace por completo y confiar en el cliente para descubrir el tipo, pero piense en ello como una pregunta teórica.

Soy nuevo en Haskell, así que puedo pedir algo imposible. ¿no?

Answer 1

Creo que lo más fácil de hacer aquí es definir el tipo de imagen en una variable separada y usarla en ambos lugares.