From: pho <pho@cielonegro.org>
Date: Sat, 2 Feb 2008 08:46:59 +0000 (+0900)
Subject: fixed a bug of getQueryForm
X-Git-Tag: RELEASE-0_2_1~9
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;h=ee292ed7f669b5f49fcdf035389fedf7d8742621;p=Lucu.git

fixed a bug of getQueryForm

darcs-hash:20080202084659-62b54-1f0d990f718a050ea1b3db78ab53344af85b71a5.gz
---

diff --git a/Network/HTTP/Lucu/Resource.hs b/Network/HTTP/Lucu/Resource.hs
index 12056ee..d3967ed 100644
--- a/Network/HTTP/Lucu/Resource.hs
+++ b/Network/HTTP/Lucu/Resource.hs
@@ -294,7 +294,7 @@ getPathInfo = do rsrcPath <- getResourcePath
 -- doesn't parse the request body. See 'inputForm'.
 getQueryForm :: Resource [(String, String)]
 getQueryForm = do uri <- getRequestURI
-                  return $! parseWWWFormURLEncoded $ uriQuery uri
+                  return $! parseWWWFormURLEncoded $ snd $ splitAt 1 $ uriQuery uri
 
 -- |Get a value of given request header. Comparison of header name is
 -- case-insensitive. Note that this action is not intended to be used