Code clean-up using convertible-text.

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

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index d4c51d5e24ae7681e91aff273ae9c5bbc29b2e70..e56567e7d665b191a96d08b75dfab9bc781f614c 100644 (file)
--- 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)       ⊕