lots of bugfixes regarding SSL support

[Lucu.git] / Network / HTTP / Lucu / Headers.hs

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index 97a7603611937c3b16109c4332f743823bf7281c..e83aa34fdc181022584693abf28578a91b9360b9 100644 (file)
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -113,6 +113,7 @@ instance Monoid Headers where
     mappend (Headers α) (Headers β)
         = Headers $ insertManySorted β α
 
+-- FIXME: override every methods
 instance Map Headers CIAscii Ascii where
     {-# INLINE lookup #-}
     lookup k (Headers m) = lookup k m