X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMIMEParams%2FInternal.hs;h=a525375e223789fb5e213e692c98169e1cb53cf8;hp=b863f0fa563fd26d869a27b8f1e7008683e3c308;hb=b7d905bb9034a4f21fa3889e83abff918c43cb58;hpb=9be2b946657c536a4363a076235f70728be087c4

diff --git a/Network/HTTP/Lucu/MIMEParams/Internal.hs b/Network/HTTP/Lucu/MIMEParams/Internal.hs
index b863f0f..a525375 100644
--- a/Network/HTTP/Lucu/MIMEParams/Internal.hs
+++ b/Network/HTTP/Lucu/MIMEParams/Internal.hs
@@ -11,10 +11,12 @@ import qualified Data.Map as M (Map)
 import Data.Monoid
 import Data.Text (Text)
 import Data.Typeable
+import Language.Haskell.TH.Syntax
+import Network.HTTP.Lucu.OrphanInstances ()
 
 -- |A 'Map' from MIME parameter attributes to values. Attributes are
 -- always case-insensitive according to RFC 2045
 -- (<http://tools.ietf.org/html/rfc2045#section-5.1>).
 newtype MIMEParams
     = MIMEParams (M.Map CIAscii Text)
-    deriving (Eq, Show, Read, Monoid, Typeable)
+    deriving (Eq, Show, Read, Lift, Monoid, Typeable)