X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FHeaders.hs;h=e56567e7d665b191a96d08b75dfab9bc781f614c;hp=d4c51d5e24ae7681e91aff273ae9c5bbc29b2e70;hb=0678be8;hpb=97295ba748af07f3b0b609f32aabdd52167d9799

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index d4c51d5..e56567e 100644
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -111,11 +111,12 @@ instance ConvertSuccess Headers Ascii where
     convertSuccess = convertSuccessVia ((⊥) ∷ AsciiBuilder)
 
 instance ConvertSuccess Headers AsciiBuilder where
-    {-# INLINE convertSuccess #-}
+    {-# INLINEABLE convertSuccess #-}
     convertSuccess (Headers m)
         = mconcat (header <$> fromFoldable m) ⊕ cs ("\x0D\x0A" ∷ Ascii)
         where
           header ∷ (CIAscii, Ascii) → AsciiBuilder
+          {-# INLINE header #-}
           header (name, value)
               = cs name                 ⊕
                 cs (": " ∷ Ascii)       ⊕