Permalink
Browse files

Merge branch 'master' of github.com:snapframework/snap

  • Loading branch information...
mightybyte committed Jan 1, 2014
2 parents 1116c43 + 8f41eb5 commit f9a9ac0e4253f17012363861da78e6b06d0b027b
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Snap/Snaplet/Auth/Handlers.hs
@@ -447,7 +447,7 @@ loginUser' unf pwdf remf = do
(runMaybeT $
do field <- MaybeT $ return remf
value <- MaybeT $ getParam field
- return $ value == "1")
+ return $ value == "1" || value == "on")
password <- noteT PasswordMissing $ hoistMaybe mbPassword
username <- noteT UsernameMissing $ hoistMaybe mbUsername

0 comments on commit f9a9ac0

Please sign in to comment.