X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHeaders.hs;h=97a7603611937c3b16109c4332f743823bf7281c;hp=2ee9cbb8ce60e39311b496aa2b8ebfe7666e9cbc;hb=bb121f1189d01b5089aa5c29f0d390fad36ade48;hpb=fc6b68927991072aeb36fe6cd28d2e6c5193427b

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index 2ee9cbb..97a7603 100644
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -23,7 +23,7 @@ import Data.Ascii (Ascii, AsciiBuilder, CIAscii)
 import qualified Data.Ascii as A
 import Data.Attoparsec.Char8 as P
 import Data.List (intersperse)
-import qualified Data.Map as M
+import qualified Data.Map as M (Map)
 import Data.Collections
 import Data.Collections.BaseInstances ()
 import Data.Monoid
@@ -77,8 +77,8 @@ instance Unfoldable Headers (CIAscii, Ascii) where
     empty
         = Headers empty
     {-# INLINE singleton #-}
-    singleton v
-        = Headers $ singleton v
+    singleton p
+        = Headers $ singleton p
     {-# INLINE insertMany #-}
     insertMany f (Headers m)
         = Headers $ insertMany f m
@@ -87,6 +87,10 @@ instance Unfoldable Headers (CIAscii, Ascii) where
         = Headers $ insertManySorted f m
 
 instance Foldable Headers (CIAscii, Ascii) where
+    {-# INLINE null #-}
+    null (Headers m) = null m
+    {-# INLINE size #-}
+    size (Headers m) = size m
     {-# INLINE foldr #-}
     foldr f b (Headers m) = foldr f b m