X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMIMEType.hs;h=36cdf0f82797b491783e9fd8ad1cac48fc2848ff;hb=72a3e24;hp=fdc112c7eea12ac560492795616b66f446c18faa;hpb=ac2ff93f647d60d43ca3cc54eb776fe0f701ac9e;p=Lucu.git

diff --git a/Network/HTTP/Lucu/MIMEType.hs b/Network/HTTP/Lucu/MIMEType.hs
index fdc112c..36cdf0f 100644
--- a/Network/HTTP/Lucu/MIMEType.hs
+++ b/Network/HTTP/Lucu/MIMEType.hs
@@ -33,7 +33,10 @@ data MIMEType = MIMEType {
       mtMajor  ∷ !CIAscii
     , mtMinor  ∷ !CIAscii
     , mtParams ∷ !(Map CIAscii Text)
-    } deriving (Eq, Show)
+    } deriving (Eq)
+
+instance Show MIMEType where
+    show = A.toString ∘ A.fromAsciiBuilder ∘ printMIMEType
 
 -- |Construct a 'MIMEType' without any parameters.
 mkMIMEType ∷ CIAscii → CIAscii → MIMEType