diff options
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 82e6c5663a5d..25e7539a3e27 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -164,7 +164,7 @@ addComment acid lang captchakey eId = do -- captcha verification challenge <- look "recaptcha_challenge_field" response <- look "recaptcha_response_field" - (userIp, _) <- liftM rqPeer askRq -- FIXME askRq >>= return . rqPeer + (userIp, _) <- liftM rqPeer askRq validation <- liftIO $ validateCaptcha captchakey userIp challenge response case validation of Right _ -> update' acid (AddComment eId nComment) |