X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FMIMEParams.hs;h=9e5b938b384f4b3e24157a8ead92e24fb94041a1;hb=b87f64c979c79592e6824ee531478eacdaa384bb;hp=9c39236679feea13cabaaa94edd346684be9a810;hpb=0d8f718f4c7babafab9ab11e78b58823b7682522;p=Lucu.git

diff --git a/Network/HTTP/Lucu/MIMEParams.hs b/Network/HTTP/Lucu/MIMEParams.hs
index 9c39236..9e5b938 100644
--- a/Network/HTTP/Lucu/MIMEParams.hs
+++ b/Network/HTTP/Lucu/MIMEParams.hs
@@ -184,8 +184,7 @@ initialEncodedValue
              -- NOTE: I'm not sure this is the right thing, but RFC
              -- 2231 doesn't tell us what we should do when the
              -- charset is omitted.
-             return ("US-ASCII", payload)
-             -- FIXME: Rethink about this behaviour.
+             fail "charset is missing"
          else
              return (charset, payload)
     where