@@ -176,6 +176,10 @@ caseParseRequestBody = do
176176 <> "Photo blog using Hack.\n\r\n"
177177 <> "------WebKitFormBoundaryB1pWXPZ6lNr8RiLh--\r\n"
178178 content4 =
179+-- "------WebKitFormBoundaryB1pWXPZ6lNr8RiLh\r\n"
180+-- <> "Content-Disposition: form-data; name=\"alb\"; filename=\"README\"\r\n"
181+-- <> "Content-Type: application/octet-stream\r\n\r\n"
182+-- <> "Photo blog using Hack.\r\n\r\n"
179183 "------WebKitFormBoundaryB1pWXPZ6lNr8RiLh\r\n"
180184 <> "Content-Disposition: form-data; name=\"bla\"; filename=\"riedmie\"\r\n"
181185 <> "Content-Type: application/octet-stream=TOOLONG=" <> S8.replicate 8192 '=' <> "\r\n\r\n"