Fix for insane memory usage

[Lucu.git] / Network / HTTP / Lucu / Resource.hs

diff --git a/Network/HTTP/Lucu/Resource.hs b/Network/HTTP/Lucu/Resource.hs
index a9d487c0908188dbe1c5ad4294a5b224778e7ec2..e456fd278d93c976834a2ad993d3c1545413ddc6 100644 (file)
--- a/Network/HTTP/Lucu/Resource.hs
+++ b/Network/HTTP/Lucu/Resource.hs
@@ -312,7 +312,7 @@ pairToFormData (name, value)
     = FormData {
         fdName     = name
       , fdFileName = Nothing
-      , fdContent  = value
+      , fdContent  = L8.pack value
       }
 
 -- |Get a value of given request header. Comparison of header name is