X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FParser%2FHttp.hs;h=adbda7b7e81bb3d863afa8b1b2a43e6012d2cd68;hp=a5dfbd90677853038f2a3ee10e8799f3978adf91;hb=3d017dd65ddede9a11c5b7a34a91e04340e67bc4;hpb=e1e74c8f81ccbc57bf5a09987b0a9dd42648f020

diff --git a/Network/HTTP/Lucu/Parser/Http.hs b/Network/HTTP/Lucu/Parser/Http.hs
index a5dfbd9..adbda7b 100644
--- a/Network/HTTP/Lucu/Parser/Http.hs
+++ b/Network/HTTP/Lucu/Parser/Http.hs
@@ -104,7 +104,7 @@ quotedStr = do char '"'
       qdtext = do c <- satisfy (/= '"')
                   return [c]
 
-      quotedPair = do q <- char '\\'
+      quotedPair = do char '\\'
                       c <- satisfy isChar
                       return [c]
 
@@ -112,14 +112,14 @@ quotedStr = do char '"'
 qvalue :: Parser Double
 qvalue = do x  <- char '0'
             xs <- option ""
-                  $ do x  <- char '.'
-                       xs <- many digit -- 本當は三文字までに制限
-                       return (x:xs)
+                  $ do y  <- char '.'
+                       ys <- many digit -- 本當は三文字までに制限
+                       return (y:ys)
             return $ read (x:xs)
          <|>
          do x  <- char '1'
             xs <- option ""
-                  $ do x  <- char '.'
-                       xs <- many (char '0') -- 本當は三文字までに制限
-                       return (x:xs)
+                  $ do y  <- char '.'
+                       ys <- many (char '0') -- 本當は三文字までに制限
+                       return (y:ys)
             return $ read (x:xs)