From 3395f3d81239d366161099ecd3e55a096adb6edc Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 19 Mar 2014 12:04:04 +0200
Subject: [PATCH] Patch for aycanirican/hweblib#1

---
 patching/patches/hweblib-0.6.1.patch | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 patching/patches/hweblib-0.6.1.patch

diff --git a/patching/patches/hweblib-0.6.1.patch b/patching/patches/hweblib-0.6.1.patch
new file mode 100644
index 00000000..1105360b
--- /dev/null
+++ b/patching/patches/hweblib-0.6.1.patch
@@ -0,0 +1,23 @@
+diff -ru orig/src/Network/Parser/Mime.hs new/src/Network/Parser/Mime.hs
+--- orig/src/Network/Parser/Mime.hs	2014-03-19 12:03:48.222054709 +0200
++++ new/src/Network/Parser/Mime.hs	2014-03-19 12:03:47.000000000 +0200
+@@ -43,7 +43,7 @@
+             _ -> MultiPart (Extension s)
+       (t, s) -> Other t s
+     where
+-      paired s = let (a,b) = (T.break (== '/') . T.toLower . TE.decodeLatin1) s in
++      paired s = let (a,b) = (T.break (== '/') . T.toLower . TE.decodeUtf8) s in
+                  (a, T.drop 1 b)
+ 
+ -- Parse headers and map them to a MimeValue
+@@ -53,8 +53,8 @@
+   let mv = L.foldl f nullMimeValue eh
+   return mv
+   where
+-    bs2t = M.fromList . Prelude.map (TE.decodeLatin1 *** TE.decodeLatin1) . M.toList
+-    hVal = TE.decodeLatin1 . hValue
++    bs2t = M.fromList . Prelude.map (TE.decodeUtf8 *** TE.decodeUtf8) . M.toList
++    hVal = TE.decodeUtf8 . hValue
+     f z x = 
+         case hType x of
+           IdH -> z { mvHeaders = M.insert IdH (hVal x) (mvHeaders z) }