X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMIMEType.hs;h=da4f503b33e838207e4cc27d380b302e21e79e87;hp=947cb004cc8fe62c57492decb78de60636d14567;hb=078fc2851ceae061fe368f2bc09fcd16d67ae00f;hpb=ba87ca171f0a058f501655ffa6f6e845f2f800a6

diff --git a/Network/HTTP/Lucu/MIMEType.hs b/Network/HTTP/Lucu/MIMEType.hs
index 947cb00..da4f503 100644
--- a/Network/HTTP/Lucu/MIMEType.hs
+++ b/Network/HTTP/Lucu/MIMEType.hs
@@ -46,11 +46,10 @@ instance Read MIMEType where
 -- exception for parse error.
 parseMIMEType :: String -> MIMEType
 parseMIMEType str = case parseStr mimeTypeP str of
-                      (Success t, r) -> if B.null r then
-                                            t
-                                        else
-                                            error ("unparsable MIME Type: " ++ str)
-                      _              -> error ("unparsable MIME Type: " ++ str)
+                      (# Success t, r #) -> if B.null r
+                                            then t
+                                            else error ("unparsable MIME Type: " ++ str)
+                      (# _        , _ #) -> error ("unparsable MIME Type: " ++ str)
 
 
 mimeTypeP :: Parser MIMEType