X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FAuthorization.hs;h=8e1be587e9c4f25c93f2e581db594e249972d96f;hp=5c3b9eec7229638f0ca5a1dcecc1336a5c415b3e;hb=9ac730212cb361eb10e5fe4ad0eec6758e2b200a;hpb=105aec5e11818a08bdc964cf93856e0ff95768ac

diff --git a/Network/HTTP/Lucu/Authorization.hs b/Network/HTTP/Lucu/Authorization.hs
index 5c3b9ee..8e1be58 100644
--- a/Network/HTTP/Lucu/Authorization.hs
+++ b/Network/HTTP/Lucu/Authorization.hs
@@ -51,8 +51,8 @@ instance Show AuthChallenge where
 
 authCredentialP :: Parser AuthCredential
 authCredentialP = allowEOF $!
-                  do string "Basic"
-                     many1 lws
+                  do _   <- string "Basic"
+                     _   <- many1 lws
                      b64 <- many1
                             $ satisfy (\ c -> (c >= 'a' && c <= 'z') ||
                                               (c >= 'A' && c <= 'Z') ||