diff options
Diffstat (limited to 'Biz/Que')
| -rw-r--r-- | Biz/Que/Host.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Biz/Que/Host.hs b/Biz/Que/Host.hs index 702827e..b26f9c7 100644 --- a/Biz/Que/Host.hs +++ b/Biz/Que/Host.hs @@ -106,7 +106,7 @@ instance Accept HTML where contentTypes _ = "text" // "html" /: ("charset", "utf-8") :| ["text" // "html"] instance MimeRender HTML ByteString where - mimeRender _ x = str x + mimeRender _ = str instance MimeUnrender HTML Text where mimeUnrender _ bs = Right <| str bs @@ -115,7 +115,7 @@ instance MimeUnrender OctetStream Text where mimeUnrender _ bs = Right <| str bs instance MimeRender PlainText ByteString where - mimeRender _ bs = str bs + mimeRender _ = str instance MimeUnrender PlainText ByteString where mimeUnrender _ bs = Right <| str bs |