It must be a bad idea to expose overlapped orphan instances.

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

diff --git a/Network/HTTP/Lucu/MIMEParams/Internal.hs b/Network/HTTP/Lucu/MIMEParams/Internal.hs
index b863f0fa563fd26d869a27b8f1e7008683e3c308..a525375e223789fb5e213e692c98169e1cb53cf8 100644 (file)
--- 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)