X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMIMEType.hs;fp=Network%2FHTTP%2FLucu%2FMIMEType.hs;h=9f2cb87739364af2d434d7b36aea40ddc87d4e1f;hp=318526d83402730e78ce52c59ca528779b1eb9b2;hb=4498b6a9091bebb38a92a730b7abff40833e3ed2;hpb=b923d454928e3d01134b15d6072b6d3edf7a15ca

diff --git a/Network/HTTP/Lucu/MIMEType.hs b/Network/HTTP/Lucu/MIMEType.hs
index 318526d..9f2cb87 100644
--- a/Network/HTTP/Lucu/MIMEType.hs
+++ b/Network/HTTP/Lucu/MIMEType.hs
@@ -72,8 +72,7 @@ parseMIMEType str
           Left err → error ("unparsable MIME Type: " ⧺ C8.unpack bs ⧺ ": " ⧺ err)
 
 mimeTypeP ∷ Parser MIMEType
-mimeTypeP = try $
-            do maj    ← A.toCIAscii <$> token
+mimeTypeP = do maj    ← A.toCIAscii <$> token
                _      ← char '/'
                min    ← A.toCIAscii <$> token
                params ← P.many paramP