Code clean-up using convertible-text.

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

diff --git a/Network/HTTP/Lucu/MIMEParams.hs b/Network/HTTP/Lucu/MIMEParams.hs
index a2b93412a7eecb6d9be0eb5ccd77b7e13e02507a..88dbb6fdd71a47bdc832cca03dc4b36797f3230b 100644 (file)
--- a/Network/HTTP/Lucu/MIMEParams.hs
+++ b/Network/HTTP/Lucu/MIMEParams.hs
@@ -62,7 +62,7 @@ instance ConvertSuccess MIMEParams Ascii where
     convertSuccess = convertSuccessVia ((⊥) ∷ AsciiBuilder)
 
 instance ConvertSuccess MIMEParams AsciiBuilder where
-    {-# INLINE convertSuccess #-}
+    {-# INLINEABLE convertSuccess #-}
     convertSuccess = foldl' f (∅)
         where
           f ∷ AsciiBuilder → (CIAscii, Text) → AsciiBuilder
@@ -119,6 +119,10 @@ toHex o = cs ("%" ∷ Ascii) ⊕
           | otherwise = toEnum $ fromIntegral
                                $ fromEnum 'A' + fromIntegral (h - 0x0A)
 
+deriveAttempts [ ([t| MIMEParams |], [t| Ascii        |])
+               , ([t| MIMEParams |], [t| AsciiBuilder |])
+               ]
+
 data ExtendedParam
     = InitialEncodedParam {
         epName    ∷ !CIAscii