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

snapframework · Jan 1, 2014 · f9a9ac0 · f9a9ac0
2 parents 1116c43 + 8f41eb5
commit f9a9ac0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Snap/Snaplet/Auth/Handlers.hs b/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